Thema Datum  Von Nutzer Rating
Antwort
Rot Schleife, Select Case, Contains
18.07.2022 12:04:22 Miriam
NotSolved
18.07.2022 15:24:50 Gast31204
Solved
18.07.2022 18:59:14 Gast15772
NotSolved

Ansicht des Beitrags:
Von:
Miriam
Datum:
18.07.2022 12:04:22
Views:
272
Rating: Antwort:
  Ja
Thema:
Schleife, Select Case, Contains

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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Schleife, Select Case, Contains
18.07.2022 12:04:22 Miriam
NotSolved
18.07.2022 15:24:50 Gast31204
Solved
18.07.2022 18:59:14 Gast15772
NotSolved