Microsoft Excel

Herbers Excel/VBA-Archiv

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

Bestimmten Teil von Zellinhalt auslesen?

Betrifft: Bestimmten Teil von Zellinhalt auslesen? von: Sergej
Geschrieben am: 18.10.2020 22:01:44

Hallo Leute,

wie kann ich bitte per VBA in der Zeile 1 nach Zellinhalt suchen, der mit INTERF beginnt, dann die Zahl nach dem Doppelpunkt auslesen?

Beispiel: INTERF_1:7
Ergbenis: 7

Besten Dank im Voraus!

Gruß,
Sergej

Betrifft: steht da nochwas hinter der Zahl ? ......
von: ralf_b
Geschrieben am: 18.10.2020 23:12:01

wenn nicht, dann so.
Sub test()

    Dim x As Range
     
    Set x = Rows(1).Find(what:="INTERF", lookat:=xlPart, LookIn:=xlValues)
    
    If Not x Is Nothing Then
        MsgBox Right(x.Value, InStr(1, StrReverse(x), ":", vbTextCompare) - 1)
    End If
 
End Sub
 


Betrifft: AW: steht da nochwas hinter der Zahl ? ......
von: Sergej
Geschrieben am: 18.10.2020 23:16:16

Hallo Ralf,

vielen herzlichen Dank! Es funktioniert perfekt.

Beste Grüße und einen guten Start in die Woche!
Sergej

Betrifft: danke für die Rückmeldung - owt
von: ralf_b
Geschrieben am: 18.10.2020 23:19:47



Beiträge aus dem Excel-Forum zum Thema "Bestimmten Teil von Zellinhalt auslesen?"