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!
|