Befehlsschaltfläche
27.07.2007 11:44:00
Simon
ich habe ein kleines Problem mit einem VBA-Programm mit einer Befehlsschaltfläche und zwar möchte ich dass man diese nur einmal anklicken kann oder die Operation beim 2. anklicken halt keine Wirkung mehr hat.
Das Programm trennt 2 zuvor zusammengefügte Wörter in der 1. Spalte und schreibt das 2. Wort wieder an seinen ursprünglichen Platz in die 2. Spalte, dies soll jedoch nur einmal passieren.
Könnte mir jemand helfen ich komme nicht weiter. Danke schön im Voraus. Gruß Simon
Hier das Programm:
Private Sub Trennen_Click()
Dim lZeile As Long
Dim aTmp As Variant
Application.ScreenUpdating = False
For lZeile = 1 To Range("A65536").End(xlUp).Row
aTmp = Split(Range("A" & lZeile).Value, " ")
Range("A" & lZeile).Value = aTmp(0)
Range("B" & lZeile).Value = aTmp(1)
Next lZeile
Application.ScreenUpdating = False
End Sub