funktion auf spalte h eingrenzen
17.12.2003 10:54:58
steffen
danke für die hilfe funktioniert super.
leider auf das gesamte tabellenblatt.
zerbreche mir seit gestern den kopf mit hilfe (Buch VBA workshop von Rene Martin und Excel-CD-ROM die ich gestern gleich bestellt hab).
kriegs aber nicht hin. vba-anfänger ;-)
wie kann ich diese funktion jetzt noch auf die spalte h begrenzen?
in spalte h soll geschrieben werden.
maximal 90 zeichen.
übertrag in spalte i und nach 30 zeichen den rest in spalte j.
das hat peterw gestern geschrieben (nochmals danke)
Private Sub Worksheet_Change(ByVal Target As Range)
Dim str As String
Dim col As Integer
If Target.Cells.Count = 1 Then
Application.EnableEvents = False
str = Target
col = Target.Column
Do Until Len(str) < 31
Cells(Target.Row, col) = Left(str, 30)
str = Right(str, Len(str) - 30)
col = col + 1
Loop
Cells(Target.Row, col) = str
Application.EnableEvents = True
End If
End Sub
vielen dank für eure hilfe
steffen