Sub tt()
Dim Zei As Long, Werte, W As Integer, Spa As Long
For Zei = 30 To Range("A" & Rows.Count).End(xlUp).Row
If InStr(Cells(Zei, 1), Chr(124)) > 0 Then
Werte = Split(Cells(Zei, 1), Chr(124))
For W = LBound(Werte) To UBound(Werte)
If Len(Werte(W)) > 0 Then
Spa = Spa + 1
Cells(Zei, Spa) = Trim(Werte(W))
End If
Next W
Spa = 0
End If
Next Zei
End Sub
so erweitern, das er eine Zeile mit ------ (z.B. mehr als 15 '-' Zeichen in einer Zeile) löscht ?
Dieses Makro teilt mir einen in Excel einkopierten Text in einzelne Spalten auf
Bsp. Daten:
case id|| i02 | 025 | 045 | 044 | nu || _A | _B | _E | _D | _C | _G | _F | _L | _M | _J | _K | _
i01 | i02 | i13 || remarks/comment
------------------------------------------------------------------------------------------------ _
1 || 000 | F | T | F | - || F | T | F | F | F | T | T | T | T | F | T | 000 | T | F ||
Dürfte ja nur ne suchschleife nach dem '-' seien, und wenn dieses Zeichen mehr als 15 mal hintereinander auftaucht, dann lösche die Zeile ?
gruß Eddie