Hallo!

Ich kenne mich mit VBA leider nicht so gut aus, kann mir jemand helfen?

Mein Problem:

Ich habe eine Datei mit mehreren Tabellenblättern und benötige aus dem 1. Tabellenblatt Daten, die dann in einem anderen Tabellenblatt mit ";" getrennt eingefügt werden sollen. Außerdem soll das Makro schauen, wieviele Zeilen es gibt, sodass hier nicht unnötig Ressourcen gebraucht werden (ich habe eine sehr komplizierte umständliche Methode, aber das ist ja nicht wirklich zielführend...)

Also konkret beginnt die Datei bei Zelle A18, ab hier soll gesucht werden, wieviele Zellen es nach unten gibt. dann gibt es noch relevante Daten in G18, das ganze soll dann mit einem Semikollon getrennt werden und in ein neues, vorhandenes Tabellenblatt (kreativer Name "Tabelle1") eingefügt werden.
In "Tabelle1" soll dann also in der Spalte A untereinander stehen: A18;G18 (mit den Werten halt), A19;G19 , A20:G20 usw.

Mein Code sieht bislang so aus... aber der ist anscheinend nicht sehr toll, sonst würd's funktionieren :)

Sub DatenInZwischenablage()

    Dim Speicher As dataobject
    Dim Help
    Dim x As Long
    Dim z As Long
        
    Set Speicher = New dataobject
    
    x = 1
    z = 18
    
    Do While Cells(z, 1).Value <> ""
    Help = Cells(z, 1).Value
        If Help <> Cells(z + 1, 1).Value Then
            strTmp = Cells(z, 1).Value & ";" & Cells(z, 7).Value
            Speicher.SetText strTmp
            Speicher.PutInClipboard
            Sheets("Tabelle1").Select
            Cells(x, 1).Paste
            Help = Cells(z + 1, 1).Value
            x = x + 1
            z = z + 1
        End If
    x = x + 1
    z = z + 1
    Loop
    
    Sheets("Tabelle1").Select
    Columns("A:A").Select
    Selection.Copy
    
End Sub

Bitte um Hilfe - danke im Voraus!