Office: (Office 2016) VBA Wenn in Spalte B *Begriff* und in Spalte C *Leer* dann schreibe 5

Hallo Leute,

ich habe Probleme mit dem Erstellen eines Makros. Ich möchte gern eine Abfrage automatisieren.

Ich habe in Spalte C verschiedene Zahlenwerte, 5, 10, oder 15 usw.
Es kann aber auch sein das dort kein Zahlenwert hinterlegt ist, sondern nur *Leer* steht, also keine Zahl hinterlegt ist.

In Spalte B steht nur in manchen Zeilen *TEXT*.

Wenn also in Spalte B *TEXT* steht und in Spalte C *Leer*, dann soll *Leer* durch die Zahl 5 ersetzt werden.

Ich bekomme es einfach nicht hin, meine Kenntnisse sind dafür zu beschränkt. Könnt ihr mir helfen?

 

Hi,

meinst du so etwas

Code:

Sub Ersetzen()
    Dim lngZeile As Long
    For lngZeile = 1 To 50 '<== Zeilenanzahl anpassen
        If Cells(lngZeile, 2) = "Text" And Cells(lngZeile, 3) = "" Then Cells(lngZeile, 3) = 5
    Next lngZeile
End Sub

Bis später,
Karin

 

Ja im Grunde schon, aber damit bekomme ich nicht das gewünschte Ergebniss. Denn dann sucht er wirklich nur eins zu eins nach dem Suchbegriff. Um mein Anliegen zu konkretisieren:
Der Text den ich in Spalte B suche ist bspw. "Wurst". In der Zelle kann Aber entweder Wurst, oder auch Leberwurst oder Teewurst stehen. Undin der Spalte C steht halt entweder ein Zahlenwert drin oder

.

Gelöst habe ich es jetzt am Ende so:

Code:

Sub mod_Wurst_Suche()
Dim iRow As Integer
Dim strMatch As String
Dim strFind As String

strFind = "Wurst" ' Oder was auch immer

With ActiveSheet

For iRow = 1 To .Cells(Rows.Count, 2).End(xlUp).Row
strMatch = .Cells(iRow, 2)

If InStr(1, strMatch, strFind, vbTextCompare) > 0 And InStr(1, .Cells(iRow, 3), "(Leer)") > 0 Then
.Cells(iRow, 3) = 5
End If
Next iRow

End With

End Sub