Zwei Tabellen miteinander verknüpfen und nach Datum sortiere (VBA)

Martin Asal @, Dienstag, 15.01.2019, 12:43 (vor 182 Tagen) @ Toni

Hallo Toni,

das Tutorial ist ja dafür da, dass man was lernt, und außerdem bin ich schreibfaul ;-) Deswegen hier eine unvollständige Lösung, das Kopieren des zweiten Sheets musst du noch einfügen. Dazu musst du nur den Abschnitt "Erstes Sheet kopieren" verdoppeln und für das zweite Sheet anpassen. Sollte auch für einen Anfänger einfach sein.

Sub nue()
Dim QuellZelle As Range, ZielZelle As Range
 
With ActiveWorkbook
    'neue Tabelle an die erste Position einfügen
    .Worksheets.Add Before:=.Worksheets(1)
 
    Set ZielZelle = .Worksheets(1).Range("A2")
End With
 
'Erstes Sheet kopieren
Set QuellZelle = ActiveWorkbook.Worksheets("Einzahlungen").Range("A2") 'Die erste Zeile(!) mit einem Wert
Do Until IsEmpty(QuellZelle.Value)
    'eine Zeile Kopieren
    ZielZelle = QuellZelle                              'Spalte A
    ZielZelle.Offset(0, 1) = QuellZelle.Offset(0, 1)    'Spalte B
    ZielZelle.Offset(0, 2) = QuellZelle.Offset(0, 7)    'Spalte H

    'nächste Zeile
    Set QuellZelle = QuellZelle.Offset(1)
    Set ZielZelle = ZielZelle.Offset(1)
Loop
 
'Sortieren
With ActiveWorkbook.Worksheets(1)
    .Sort.SortFields.Clear
    .Sort.SortFields.Add Range("A:A")       'Sortiere nach Spalte A
    .Sort.SetRange .UsedRange               'und zwar alles

    .Sort.Apply
End With
 
End Sub

Martin


gesamter Thread:

 RSS-Feed dieser Diskussion

powered by my little forum