MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 12.06.2018, 20:14   #1
Kafir
Neuer Benutzer
Neuer Benutzer
Standard VBA - Gleiche Werte aus aus Tabellenblättern untereinander kopieren

Hallo zusammen,

wahrscheinlich war dieses Thema bereits diverse male so oder etwas anders hier - ich habe aber nach langem Suchen nicht das passende gefunden...

In meinem Anhang möchte ich aus allen Tabellenblättern ab dem sechstem (Testi1) jeweils immer die Pers. Nr. (AL1) und dann die Werte aus den Spalten V, W, AD, AE und AF jeweils die Werte aus Zeile 44 und dann 43 auslesen (Ins Tabellenblatt Urlaub). Das klappt auch, leider werden die Werte immer überschrieben und nur der letzte Satz bleibt erhalten.

Beim Makro "Urlaub" läuft es gut, aber da ist es je Tabellenblatt auch nur ein Datensatz. Das Makro heißt "Lohnarten". Hintergrund ist, dass dies Lohnarten sind, die in Abrechnungsprogramm eingelesen werden sollen.

Mit meinem Halbwissen aus kopieren etc. kriege ich es leider nicht hin.

Vielen Dank für jede Hilfe!

180507_Übergabedatei_NEU2.xlsm
Kafir ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 12.06.2018, 22:10   #2
MisterBurns
MOF Koryphäe
MOF Koryphäe
Standard

Ich habe deine Erläuterungen zwar nicht so richtig verstanden, aber ich denke, das sollte dir helfen:

Code:

Sub Lohnarten()
  Dim i As Integer
  Dim j As Integer
  j = 6
   For i = 6 To Worksheets.Count
    Sheets(3).Cells(j, 1).Value = Worksheets(i).Range("AL1").Value
    Sheets(3).Cells(j, 2).Value = Worksheets(i).Range("V44").Value
    Sheets(3).Cells(j, 3).Value = Worksheets(i).Range("V43").Value
    j = j + 1
    Sheets(3).Cells(j, 1).Value = Worksheets(i).Range("AL1").Value
    Sheets(3).Cells(j, 2).Value = Worksheets(i).Range("W44").Value
    Sheets(3).Cells(j, 3).Value = Worksheets(i).Range("W43").Value
    j = j + 1
    Sheets(3).Cells(j, 1).Value = Worksheets(i).Range("AL1").Value
    Sheets(3).Cells(j, 2).Value = Worksheets(i).Range("AD44").Value
    Sheets(3).Cells(j, 3).Value = Worksheets(i).Range("AD43").Value
    j = j + 1
    Sheets(3).Cells(j, 1).Value = Worksheets(i).Range("AL1").Value
    Sheets(3).Cells(j, 2).Value = Worksheets(i).Range("AE44").Value
    Sheets(3).Cells(j, 3).Value = Worksheets(i).Range("AE43").Value
    j = j + 1
    Sheets(3).Cells(j, 1).Value = Worksheets(i).Range("AL1").Value
    Sheets(3).Cells(j, 2).Value = Worksheets(i).Range("AF44").Value
    Sheets(3).Cells(j, 3).Value = Worksheets(i).Range("AF43").Value
    j = j + 1

  Next i
End Sub
Dein Problem ist, dass du bei Verwendung von nur einer Variable (i) ja immer wieder deine Zeilen überschreibst.

__________________

Schöne Grüße
Berni
MisterBurns ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 13.06.2018, 08:17   #3
Kafir
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Guten Morgen Mister Burns,

super das klappt genau wie ich es wollte - auch wenn ich mich vielleicht nicht ganz klar ausgedrückt habe . In der Liste sind in der Spalte manche Zellen leer oder es steht eine 0 drin. Eigentlich benötige ich jedoch nur die Zeilen mit Werte größer 0, alle anderen könnten gelöscht werden.

Kann man dies auch noch hinkriegen?!

Wenn nicht bin ich trotzdem schon en ganzes Stück weiter!!

Ganz vielen Dank!!
Kafir ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 13.06.2018, 09:53   #4
MisterBurns
MOF Koryphäe
MOF Koryphäe
Standard

Man kann es sicherlich hinkriegen, allerdings verstehe ich es immer noch nicht ganz. Denn in deiner Beispieldatei steht in jeder Zeile in der Spalte Anzahl entweder nichts, eine Null oder ein fehlerhafter Bezug. Demnach bräuchte keine Zeile übertragen werden, richtig?
Angehängte Grafiken
Dateityp: png Unbenannt.PNG (20,2 KB, 2x aufgerufen)

__________________

Schöne Grüße
Berni
MisterBurns ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 13.06.2018, 20:10   #5
Kafir
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Hallo,

Das stimmt. In dem bsp. sind auch noch keine Daten eingegeben. Sonst würden auch zahlen erscheinen! Sorry hätte ich vielleicht einbauen sollen.

Wie gesagt in der Realität sind zahlen da und Zeilen mit Leerzeichen, Nullen und fehlerwerte sollten verschwinden.

Gruß und danke

Kafir
Kafir ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 14.06.2018, 08:32   #6
MisterBurns
MOF Koryphäe
MOF Koryphäe
Standard

Füge diesen Code noch nach "Next i" ein

Code:

With Sheets("Urlaub")
letzte = .Cells(Rows.Count, 1).End(xlUp).Row
    .AutoFilter.Range.Offset(1).Range("$A$5:$C$" & letzte).AutoFilter Field:=3, Criteria1:=Array( _
        "#BEZUG!", "0", "="), Operator:=xlFilterValues
    .AutoFilter.Range.Offset(1).Resize(ActiveSheet.AutoFilter.Range.Rows.Count - 1).EntireRow.Delete shift:=xlUp
    .ShowAllData
End With

__________________

Schöne Grüße
Berni
MisterBurns ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 14.06.2018, 17:56   #7
Kafir
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Hallo MisterBurns,

Super klappt hervorragend!

Tausend dank! Das erleichert mir und meinen Kollegen erheblich die Arbeit!!!
Kafir ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 22:45 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.