vor lauter Variablen habe ich den Überblick verloren. Könnt Ihr mir bitte helfen.
Problemstellung: Ich habe 2 Excelsheets. In Sheets(2) stehen die Daten in Spalte A.
Zunächst soll die Anzahl der benutzten Zeilen in Sheets(2), Spalte A ausgelesen werden, damit ich die For Next Schleife aufbauen kann. Nun sollen die leeren Zeilen rausgelöscht werden.
Dim lgCount As Long
Dim lgLetzte As Long
lgLetzte = Sheets(2).UsedRange.SpecialCells(xlCellTypeLastCell).Row
For lgCount = lgLetzte To 1 Step -1
If IsEmpty(Cells(lgCount, 1)) Then
Cells(lgCount, 1).Delete Shift:=xlUp
End If
Als nächstes soll auf Sheets(1) in Spalte A von allen benutzten Zellen von Sheets(2) Spalte A ein Teil der Zellinhalte kopiert werden.
Die Excelformel für den Teil der Daten lautet:
= Links(A1;Suchen(")";A1)-2), wobei A1 für die variable Zelle der For Next Schleife stehen muss.
Puh, ich hoffe, ich konnte mich einigermaßen verständlich ausdrücken.
Vielen lieben Dank für Eure Unterstützung.