Texteingabe größer als 30 Zeichen teilen
Florian
ich habe mal wieder ein Problem, ich habe ein Makro geschrieben welches die Eingabe in Excel überwacht.
Wenn die Stringlänge größer 30 Zeichen ist soll der Inhalt in die zelle darunter geschrieben werden.
Funktioniert soweit super, es werden sogar Stringlängen von z.B. 80 Zeichen auf 3 Zeilen verteilt.
Problem:
Die vom Makro getätigten Änderungen lösen das Makro erneut aus. Es entsteht eine Schleife so lange läuft bis die neu erstellte Zelle weniger als 30 Zeichen enthält.
Außerdem wird der Inhalt der darunterliegenden Zellen überschrieben, ich möchte aber dass eine neue Zeile eingefügt wird die die Zeichen > 30 enthält.
Gibt es eine Funktion mit der ich verhindern kann, dass die vom Makro ausgelößten Änderungen das Macro nicht erneut auslösen?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim AktiveZeile As Integer
Dim AktiveSpalte As String * 1
Dim Zeichenzahl As Integer
Dim Text As String * 210
AktiveZeile = Target.Row
AktiveSpalte = "B"
Zeichenzahl = Len(Range(AktiveSpalte & (AktiveZeile)).Value)
Text = Range(AktiveSpalte & (AktiveZeile)).Value
If Zeichenzahl > 30 Then
Range(AktiveSpalte & (AktiveZeile + 1)) = Mid(Text, 31)
Range(AktiveSpalte & AktiveZeile) = Left(Text, 30)
End If
End Sub
Bin für jede Hilfe dankbar...
Gruß
Flo
Anzeige