Wie kann ich mit nem Makro die Länge eines Strings bestimmen der in einer bestimmten Zelle einer Tabelle steht (Excel 2003)???

Dim lg As Integer

Dim i As Integer

Sub lange()

i = 1

Do Until Sheets("Konzerne").Range("a" & i) = ""

Sheets("Konzerne").Range("x" & i) = Len(Sheets("Konzerne").Range("c" + i)) '+ Len(Sheets("Konzerne").Range("d" + i))

i = i + 1

Loop

End Sub

Kommt ne Fehlermeldung.......

wie länge bestimmen? bestimmen im sinne von festlegen oder bestimmen im sinne von herausbekommen :confused:

Kommt ne Fehlermeldung.......

Das klingt wie der Anfang eines schlechten Witzes.

Fehlermeldungen dienen nicht dazu dich zu ärgern, sondern dir Hinweise auf die Fehlerursache zu geben. Wenn wir dir dabei helfen sollen, ist es immer von Vorteil, wenn du die Fehlermeldung dazuschreibst.

*gebetsmühlewegpack*

ich versuchs mal:

i = 1

das = Len(Tabelle1.Cells(i, 1)) - 1

Tabelle1.Cells(i, 1) = Left(Tabelle1.Cells(i, 1), das)

schneidet 1 zeichen der zelle A1 ab... also bestimmt man damit die länge in 2erlei hinsicht

Dim lg As Integer

Dim i As Integer

Sub lange()

i = 1

Sheets("Konzerne").Activate

Do Until Range("a" & i) = ""

Range("x" & i).Value = Len(Range("c" & i).Value) + Len(Range("d" & i).Value)

i = i + 1

Loop

End Sub

Das läuft und addiert die String-Längen der Zellen ci und di und gibt das ergebnis in xi aus solange in ai irgendwas steht. Ist es das was du wolltest?

Gordonski