"Makro-Umbau" wer weis Rat?
09.07.2003 13:12:49
Dominik
Sub Konvertierung()
Dim iZeile As Long, iiZeile As Long
Dim strZelle As String
iiZeile = 0
For iZeile = 1 To Range("A65536").End(xlUp).Row
If Cells(iZeile, 1) <> "" Then
strZelle = Cells(iZeile, 1)
Do While InStr(strZelle, Chr(10)) > 0
iiZeile = iiZeile + 1
Cells(iiZeile, 3) = Left(strZelle, InStr(strZelle, Chr(10)) - 1)
Cells(iiZeile, 4) = Cells(iZeile, 2)
strZelle = Right(strZelle, Len(strZelle) - InStr(strZelle, Chr(10)))
Loop
iiZeile = iiZeile + 1
Cells(iiZeile, 3) = strZelle
Cells(iiZeile, 4) = Cells(iZeile, 2)
End If
Next iZeile
End Sub
Nun hätte ich gerne, dass der Text in Spalte C ebenfalss berücksichtigt wird und dass das Ergebnis der Konvertierung in Tabelle2(in Spalte B, C und D
und nicht wie bisher in Tablle1 in den Spalten C und D.
MfG
Dominik