Herbers Excel/VBA-Archiv

Gefundene Tab1 Inhalte nach Tab2 listen

• Gefundene Tab1 Inhalte nach Tab2 listen von mehmet vom 06.10.2014 18:10:12
• AW: Gefundene Tab1 Inhalte nach Tab2 listen - von Christian am 06.10.2014 20:26:47
  • AW: Gefundene Tab1 Inhalte nach Tab2 listen - von mehmet am 06.10.2014 20:32:30

Betrifft: Gefundene Tab1 Inhalte nach Tab2 listen von: mehmet
Geschrieben am: 06.10.2014 18:10:12

Hallo Forum,
ich komme leider nicht weiter.
Es soll in Tabelle1 nach bestimmte Zellinhalte in Spalte C gesucht werden.
Wenn gefunden, dann sollen diese in Tabelle2 eingefügt werden als Liste nebeneinander.
Klappt bei mir auch aber Tabelle2 Liste wird immer überschrieben
und nicht unten angehängt.
Vielen Dank
https://www.herber.de/bbs/user/92984.xls
Gruss
mehmet

Betrifft: AW: Gefundene Tab1 Inhalte nach Tab2 listen von: Christian
Geschrieben am: 06.10.2014 20:26:47

Hallo mehmet
du musst die Variable "UntenDran" vor der For-Schleife auf 1 setzen und innhalb der For-Schleife (direkt vor dem Next) um 1 erhöhen (UntenDran = UntenDran + 1)

etwas kompakter könnte man das zB auch so schreiben:

Option Explicit

Sub TestIt()
    Dim wksDst As Worksheet
    Dim i As Long, k As Long
    
    Set wksDst = ThisWorkbook.Sheets("Tabelle2")
    wksDst.Cells.ClearContents
    k = 1
    
    With ThisWorkbook.Sheets("Tabelle1")
        For i = 1 To .Cells(.Rows.Count, 3).End(xlUp).Row
            If .Cells(i, 3) = "Buch" And _
               .Cells(i + 1, 3) = "Titel" And _
               .Cells(i + 2, 3) = "Author" And _
               .Cells(i + 3, 3) = "Ausgabe" And _
               .Cells(i + 4, 3) = "Ausleihe" And _
               .Cells(i + 5, 3) = "Name" Then
               
               wksDst.Cells(k, 1) = .Cells(i, 3).Value                              ' Buch
               wksDst.Cells(k, 2).Resize(, 3) = .Cells(i + 1, 3).Resize(, 3).Value  ' Titel
               wksDst.Cells(k, 5).Resize(, 3) = .Cells(i + 2, 3).Resize(, 3).Value  ' Author
               wksDst.Cells(k, 8).Resize(, 3) = .Cells(i + 3, 3).Resize(, 3).Value  ' Ausgabe
               wksDst.Cells(k, 11).Resize(, 3) = .Cells(i + 4, 3).Resize(, 3).Value ' Ausleihe
               wksDst.Cells(k, 14).Resize(, 3) = .Cells(i + 5, 3).Resize(, 3).Value ' Name
               i = i + 5
               k = k + 1
            End If
        Next
    End With
    
    Set wksDst = Nothing
End Sub

Gruß
Christian

Betrifft: AW: Gefundene Tab1 Inhalte nach Tab2 listen von: mehmet
Geschrieben am: 06.10.2014 20:32:30

Hallo Christian,
vielen Dank für Hilfe.
Es funktioniert.
Eine einfache Schleife kriege ich hin,
aber eine verschachtelte Schleife ist mir noch
ein bisschen zu schwer.
Ich werde dein Code mal näher angucke.
Vielen Dank nochmal.
Gruss
mehmet

Beiträge aus den Excel-Beispielen zum Thema "Gefundene Tab1 Inhalte nach Tab2 listen"