Suchen und kopieren

Bild

Betrifft: Suchen und kopieren
von: Daniel
Geschrieben am: 19.03.2005 11:53:30
Hi zusammen
https://www.herber.de/bbs/user/19867.xls
Ich habe folgende Excel Datei es handelt sich um eine Spesenabrechnung. In der Tabelle "Eingabe" können die Spesen eingegeben werden. Beim Ausführen des Makro "Sortieren" werden die Daten in die Tabelle "Daten" kopiert, und zuerst nach der Kontonummer und anschliessend nach dem Datum sortiert.
Im nächsten Schritt sollen nun die Zeilen aus "Daten" in die "Tabelle 2" kopiert werden und zwar so dass die Zeilen jeweils nach den Kontonummern eingefügt werden.
Im der "Tabelle 4" habe ich ein Beispiel wie es schlussendlich aussehen sollte.
Kann mir jemand helfen? Vielen Dank!
Gruss

Bild

Betrifft: AW: Suchen und kopieren
von: Herbert H.
Geschrieben am: 19.03.2005 13:10:38
Hallo Daniel,
das Blatt Daten brauchst du möglicherweise gar nicht...
hier ein erster Ansatz,die Summen fehlen noch...
ist natürlich nur auf 2 Kontonummern ausgerichtet...


Sub übers_erst()
Dim shQ As Worksheet, shZ As Worksheet
Dim i%, lz%, ez%
Set shQ = Worksheets("Eingabe")
Set shZ = Worksheets("Tabelle2")
lz = shQ.Cells(Rows.Count, 1).End(xlUp).Row
For i = 6 To lz
  If shQ.Cells(i, 1) = 1001 Then
     ez = shZ.Cells(Rows.Count, 1).End(xlUp).Row + 1
      Range(shQ.Cells(i, 1), shQ.Cells(i, 4)).Copy shZ.Cells(ez, 1)
   End If
Next
shZ.Cells(4, 1).Copy shZ.Cells(ez + 3, 1)
Range(shZ.Cells(5, 1), shZ.Cells(5, 4)).Copy shZ.Cells(ez + 4, 1)
For i = 6 To lz
  If shQ.Cells(i, 1) = 2002 Then
     ez = shZ.Cells(Rows.Count, 1).End(xlUp).Row + 1
      Range(shQ.Cells(i, 1), shQ.Cells(i, 4)).Copy shZ.Cells(ez, 1)
   End If
Next
End Sub

     
https://www.herber.de/bbs/user/19871.xls
Gruß Herbert
Bild

Betrifft: AW: Suchen und kopieren
von: Daniel
Geschrieben am: 22.03.2005 08:40:54
Vielern Dank Herbert für deine Hilfe.
Da ich von VB wirklich fast keine Ahnung habe stosse ich nun schon auf den nächsten Stein. Wie kann ich es fertigbringen, dass sich die Beträge jeweils nach Ende von einem Konto zusammenzählen?
Gruss
Daniel
Bild

Betrifft: AW: Suchen und kopieren
von: Herbert H.
Geschrieben am: 22.03.2005 10:25:46
schau in die Mappe:
https://www.herber.de/bbs/user/19983.xls
Gruß Herbert
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Suchen und kopieren"