Aus Zelleninhalt ganzes Wort generieren

Hallo EXCEL-Freunde,
ich versuche aus mehreren Makros den Inhalt einer Zelle zu zerlegen und daraus
bestimmte Ergebnisse zu generieren. Jetzt scheitere ich daran, dass es mir nicht
gelingt, bei bestimmten Buchstaben ein ganzes Wort zu defnieren, das in die
nächste Spalte eingetragen wird; dabei stehen die Buchstaben in den Zeilen
k2 bis k50 und die Wörter sollen in L2 bis L50 eingetargen werden:


Option Explicit
Sub Stadium()
' aus Zelleninhalt Merkmal/Stadium ermitteln und eintragen
Cells(1, 12) = "Stadium"
Dim i As Integer, r As Range
'For Each r In [k2:k50]
For i = 2 To 50
If Cells(i, 11) = "K" Then
Cells(i, 12) = "Kauf1"
Else
If Cells(i, 11) = "L" Then
Cells(i, 12) = "Kauf2"
Else
If Cells(i, 11) = "T" Then
Cells(i, 12) = "Kauf3"
End If
'Next
Next
End Sub

Code eingefügt mit: Excel Code Jeanie
Es kommt immer zur Fehlermeldung
Next ohne For
ganz egal wie ich umstelle.
Besten Dank für eine Hilfe!
mfg
Erich

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Stadium() ' aus Zelleninhalt Merkmal/Stadium ermitteln und eintragen Cells(1, 12) = "Stadium" Dim i As Integer, r As Range For i = 2 To 50 If UCase(Cells(i, 11)) = "K" Then Cells(i, 12) = "Kauf1" ElseIf UCase(Cells(i, 11)) = "L" Then Cells(i, 12) = "Kauf2" ElseIf UCase(Cells(i, 11)) = "T" Then Cells(i, 12) = "Kauf3" End If Next End Sub

Hallo Bert,
besten Dank das war's!!
Hast Du vielleicht für dieses Problem auch noch eine Idee. Ich hatte die Anfrage
vor zwei drei Wochen schon mal im Forum - aber ohne Erfolg. Leider finde ich den
Thread nicht mehr, deshalb nochmlas das Problem. Aus den nachstehenden Zellen der
Spalte A soll in Spalte B der Text übertragen werden, der zwischen den Zahlen steht.
Dabei ist es immer das gleiche System, das heisst Buchstaben vor und hinter den Zahlen
bleiben unberücksichtigt. Es können aber zwischen den Zahlen dann Leerzeichen, &-Zeichen oder Punkte vorkommen - trotzdem soll dies alles in die nächste Spalte übertragen werden.
Eine Formel habe ich bereits. Mit VBA habe ich aber den Vorteil, dass ich mit mehreren
Makros hintereinander das schneller lösen kann:

Public Sub TextLösen() Dim srcRng As Range Dim rng As Range Dim isNum As Boolean Dim stPos As Integer Dim pos As Integer With ActiveSheet Set srcRng = .Range("A2:A" & .Cells(65500, 1).End(xlUp).Row) For Each rng In srcRng isNum = False stPos = 999 For pos = 1 To Len(rng.Value) If IsNumeric(Mid(rng.Value, pos, 1)) Then isNum = True End If If isNum And Not (IsNumeric(Mid(rng.Value, pos, 1))) And stPos = 999 Then stPos = pos End If If isNum And IsNumeric(Mid(rng.Value, pos, 1)) And pos > stPos Then rng.Offset(0, 1).Value = Trim(Mid(rng.Value, stPos, pos - stPos)) Exit For End If Next pos Next rng End With End Sub

Beliebteste Forumthreads (12 Monate)

Aus Zelleninhalt ganzes Wort generieren

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Aus Zelleninhalt ganzes Wort generieren

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread