Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Teil einer Zeichenkette

Betrifft: Teil einer Zeichenkette von: Dr.
Geschrieben am: 07.09.2004 09:23:38

Guten Morgen,

ich möchte innerhalb eines Spaltendurchlaufs die Frage beantwortet haben, ob der aktuelle Zelleninhalt mit "14" beginnt.

Kann mir jemand über das IF... hinaushelfen?

Danke im voraus,

Dr.

  


Betrifft: AW: Teil einer Zeichenkette von: Russi
Geschrieben am: 07.09.2004 09:28:31

Hallo Dr.!

So gehts?

Sub Testen_auf_14()
    Dim Zeile As Long
    For Zeile = 1 To ActiveSheet.UsedRange.Rows.Count
        ' 1 ggf. durch andere Spalte ersetzen:
        If Left(ActiveSheet.Cells(Zeile, 1).Value, 2) = "14" Then
            MsgBox ("14 in Zeile " & Zeile)
        End If
    Next
End Sub


Viele Grüße
Russi
www.Russi.de.tt


  


Betrifft: Passt! Danke! :-) oT von: Dr.
Geschrieben am: 07.09.2004 09:30:03

.