Office: Makro nur ausführen wenn in einer Spalte ein spezieller Text nicht vorkommt

Hallo,

ich möchte aus einen Bericht einer Tabelle erstellen, wenn ein spezieller Wert in einer Spalte nicht vorkommt. Ansonsten soll eine Message erscheinen: "Für diesen Fall ist der Bericht nicht möglich"
Spalte C:
Text 1 - Bericht möglich
Text 2 - Bericht nicht möglich
Text 3 - Bericht möglich

Das Makro für den Bericht habe ich bereits, ich bräuchte die Ergänzung für die Einschränkung und Msgbox.
Leider sind meine VBA Kenntnisse sehr begrenzt.

 

Moin, das lässt sich mit einer einfachen Schleife lösen:

Code:

Option Explicit
Sub Version()
Dim i As Integer, r As Integer
Dim sFailure As String, sMessage As String

sFailure = "Text 2"   'ANPASSEN
sMessage = "Bericht nicht möglich"
r = UsedRange.Rows.Count

For i = 1 To r
    If Cells(i, 3) = sFailure Then
        MsgBox sMessage, , Cells(i, 3) & " in Zeile " & i
    End If
Next i

End Sub

Der Code (gehört in die Tabelle) geht alle belegten Zeilen durch und vergleicht den Wert in Spalte C mit sFailure. Falls vorhanden erscheint die Messagebox mit Hinweis auf die entsprechende Zeile. Text 1, 3 ... n werden ignoriert

Grüße

 

Hi,

und bei Vorhandensein welches speziellen Wertes soll dein Code nicht ausgeführt, also kein Bericht erstellt werden - bei Text 2?

Code:

Sub TextVorhanden()
    If Application.CountIf(Columns(3), "Bericht nicht möglich") = 0 Then
        ' hier dein Code
    Else
        MsgBox "Bericht erstellen nicht möglich"
    End If
End Sub

---

 

Moin Karin,

wozu zählst den Messagetext in Spalte C, in der laut (@Lampe: gut formulierten) Anfrage doch nur Text 1,,, Text 2, Text 3 usw. stehen?

fragt sich ...

 

@d'r Bastler
Vielen herzlichen Dank. Werde es einbauen und testen.

 

Moin Lampe,

zwei Tipps als Nachtrag:

• Ich werde immer wieder angemault, dass ich Schleifenzähler (hier i & r) als Integer statt als Long deklariere, weil damit weniger Zeilen durchlaufen werden können. Wenn Deine Tabelle also größer als 32.000 Zeilen ist, nimm Long
• Wann Du in Deiner Routine die Schleife laufen lassen willst, weiß ich natürlich nicht. Aber Du hast dafür die Möglichkeit, den Code dann in ein Allg. Modul auszulagern und aus der (beliebig vielen) Tabelle(n) heraus aufzurufen.

Code:

'Dein Code

Call Version
'Call brauchst Du nicht wirklich, hilft aber Deinen Code gut lesbar zu halten

'weiter in Deinem Code

Mein Code oben müsste dann etwas modifiziert werden:

Code:

Sub Version()
Dim i As Integer, r As Integer
Dim sFailure As String, sMessage As String

sFailure = "Text 2"   'ANPASSEN
sMessage = "Bericht nicht möglich"

With ActiveSheet
r = .UsedRange.Rows.Count

For i = 1 To r
    If .Cells(i, 3) = sFailure Then
        MsgBox sMessage, , .Cells(i, 3) & " in Zeile " & i
    End If
Next i
End With
End Sub

Viel Spaß wünscht ...