WorksheetFunction Mid?
Jörn
gibt es eine Entsprechung der Funktion =Teil() als WorksheetFunction.
Hintergrund ist, daß ich mir über die "Teil-Funktion" Zellkoordinaten aus einem Zelltext extrahieren möchte, dann in eine Variable einlesen, um die Zellen anschließend ansteuern zu können.
Der Text hat immer den selben Aufbau: "B w $E$2 > $E$3"
so daß ich immer von der Adresse: 6. und 8. Zeichen (hier: E2) nach Zeichen 13/15 (E3) copy pasten kann.
Schmankerl wäre, wenn nach jedem Schleifendurchlauf das Makro für 6 Sekunden anhält und dann weiterläuft.
Private Sub CommandButton4_Click()
Dim lRow, i, j, m, n
lRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To lRow - 6
j = Range("A" & 6 + i).Address
m = WorksheetFunction.Mid(j, 6, 1) & Mid(j, 8, 1)
n = WorksheetFunction.Mid(j, 13, 1) & Mid(j, 15, 1)
Sheets(1).Range(m).Offset(6, 2).Copy
Sheets(1).Range(n).Offset(6, 2).Paste
Sheets(1).Range(m).Offset(6, 2) = ""
'stoppen für 6 Sekunden
End If
Next i
End Sub
Vielen Dank für Eure IdeenIn der Datei wird das Problem vielleicht klarer ...
https://www.herber.de/bbs/user/73525.xlsm
schöne Grüße
Jörn