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"