Hallo,
also ich hänge an einem Problem. Ich habe zum Beispiel folgenden Zelleninhalt "1/1/39, 0/1/6, 1/1/3" und muss alle Zeichen nach dem Komma in eine neue Zeile kopieren und in der alten Zelle alles inklusive Komma löschen.
Leider habe ich gar keine Ahnung, wie ich das bewerkstelligen kann in VBA. In Excel hatte ich es bereits mit dem rechts()-Befehl.
Mein Skript sieht momentan so aus (ich dachte, ich kann es vielleicht mit case machen):
With Worksheets("devs").Columns("A:A").Select
Dim b As String
Selection.Find(What:=",", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Dim Cell_Name As String
Cell_Name = ActiveCell.Name.Name
select case
case "," to ",".copy
' b.Copy
' Selection.EntireRow.Insert
' ActiveSheet.Paste
' Set a = .FindNext(a)
' Loop While Not a Is Nothing
' End If
End With
End Sub
Danke, Ergy |