Hallo ich hatte mir aus diversen Foren versucht etwas zusammen zu basteln, allerdings kommt da bei mir nur Unfug bei rum.. (Laufzeitfehler)
Ich habe eine Tabelle mit 34 Spalte.
Ich möchte in Spalte 11 nach einem Wort in einem String suchen mittels Contains.
Wenn dies zutrifft soll der dementsprechende Case angesprochen werden also Select Case.
Und das ganze soll für die gefüllte Tabelle laufen also als Schleife bis .UsedRange.Rows.Count.
Das Arbeitsblatt nenne ich mal symbolisch im Code "Input". Die gefüllte Tabelle ist auch als solches definiert und heißt ebenfalls "Input" via Namensmanager (Das hatte nicht geklappt daher hab ich halt den Rows.Count durch 400 ersetzt.
Sub Test()
'-- Variablendeklaration --
Dim Zeile As Long 'Zeilennummer
Dim SpalteSuche As Long 'Spaltennummer der Suchzelle
Dim SpalteProzess As Long 'Spaltennummer für
'-- Variableninitialisierung --
Zeile = 0 'nur zur Initialisierung wird sowieso überschrieben
SpalteSuche = 11
' SpalteProzess = 34 '
'-- Schleife zum Ausfüllen der Spalte "Baugruppen_Prozess" --
For Zeile = 2 To 400
Select Case True
Case ActiveSheet.Cells(Zeile, SpalteSuche).Contains("Auto")
Cells(Zeile, SpalteProzess) = "Auto"
Case ActiveSheet.Cells(Zeile, SpalteSuche).Contains("Baum")
Cells(Zeile, SpalteProzess) = "Pflanze"
Case ActiveSheet.Cells(Zeile, SpalteSuche).Contains("Schrank")
Cells(Zeile, SpalteProzess) = "Möbel"
'Sonstige Fälle
Case Else
Cells(Zeile, SpalteProzess) = "FEHLER"
End Select
Next Zeile
End Sub
Bitte helft mir bin echt verzweifelt
|