Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
352to356
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
352to356
352to356
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

funktion auf spalte h eingrenzen

funktion auf spalte h eingrenzen
17.12.2003 10:54:58
steffen
hallo marla und peter,

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

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: funktion auf spalte h eingrenzen
17.12.2003 11:15:46
Mac4
Hallo Steffen,

vieleicht ist Dir ja hiermit schon geholfen:


Private Sub Worksheet_Change(ByVal Target As Range)
Dim str As String
Dim col As Integer
If Intersect(Target,Range("H:H"))Is Nothing Then
Else
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 If
End Sub


Marc
danke :-))))))))
17.12.2003 11:23:25
steffen
besten dank. so funktionierts
Anzeige
AW: funktion auf spalte h eingrenzen
17.12.2003 14:42:54
PeterW
Hallo Marc,

If Intersect(Target,Range("H:H"))Is Nothing Then
Else

den Else-Teil kannst du dir schenken, wenn du die Bedingung negierst:
If Not Intersect(Target,Range("H:H"))Is Nothing Then

oder noch direkter:
If Target.Column = 9 Then

Gruß
Peter
AW: funktion auf spalte h eingrenzen
17.12.2003 11:17:33
WernerB.
Hallo Steffen,

mal ungetestet:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim str As String
Dim col As Integer
If Target.Column <> 8 Then Exit Sub
If Len(Target.Value) > 90 Then
MsgBox "Zu viele Zeichen !"
Exit Sub
End If
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

Viel Erfolg wünscht
WernerB.

P.S.: Das Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter (siehe Forums-FAQ).
Anzeige
danke:-)
17.12.2003 18:12:45
steffen
hab die erste variante genutzt.
trotzdem danke wernerb.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige