Suchen - finden - verschieben

Forumthread: Suchen - finden - verschieben
3 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Suchen - finden - verschieben

09.12.2025 13:36:18

röhmler

Hallo miteinander,

ich bin blutiger Anfänger und ich finde den Fehler nicht.
Ich möchte die Spalte "I" nach Inhalt durchsuchen. Wird Inhalt
gefunden, dann verschiebe den Inhalt in Spalte "H".
Was ist an meinem Makro falsch?

Sub verschieben()

For q = 3 To 160

If Cells(q, 9).Value = "*" Then
Cells(q, 9).Value = Cells(q, 8)

End If
Next q

End Sub

Bitte kann jemand Helfen?
Danke mal

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Suchen - finden - verschieben

09.12.2025 13:43:39

JoWE
AW: Suchen - finden - verschieben

09.12.2025 13:43:55

daniel
AW: Suchen - finden - verschieben

09.12.2025 13:46:20

Alwin Weisangler

AW: Suchen - finden - verschieben

09.12.2025 13:43:39

JoWE

Hallo,
so z.B.:

Sub verschieben()

  Dim q As Long

  For q = 3 To 160

    If Cells(q, 9).Value > "" Then

      Cells(q, 8).Value = Cells(q, 9)

      Cells(q, 9) = "" 'Wenn danach in der Spalte 9 nix mehr drin stehen soll!!

    End If

  Next q

End Sub

Gruß
Jochen

AW: Suchen - finden - verschieben

09.12.2025 13:43:55

daniel

Hi
der Vergleich mit "=" ist ein ganz einfacher Vergleich, der nur die vorhandenen Zeichen direkt vergleicht und keine Joker oder ähnliches kennt.

für Vergleiche mit Jokerzeichen kannst du die Operation LIKE verwenden:

If Cells(q, 9).Value Like "?*" Then

oder du nimmst hier >

If Cells(q, 9).Value > "" Then

Gruß Daniel

AW: Suchen - finden - verschieben

09.12.2025 13:46:20

Alwin Weisangler

Hallo,

Willst du mit Teilstring suchen oder nur exakte Suche. Das was du zeigst könnte man annehmen, dass du Teilstring suchen willst.
Wenn ja gibt es irgendwelche Einschränkungen/Festlegungen wie z.B. Teilstring aber "*" & Suchtext oder Suchtext & "*" oder Suchtext egal wie.

Gruß Uwe

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!