Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.07.2024 16:00:57
15.07.2024 15:41:38
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Mit Vba bei bestimmtem Text eine Msg Box zeigen

Mit Vba bei bestimmtem Text eine Msg Box zeigen
09.02.2017 13:39:25
Nils
Hallo,
ich würde gerne bei mit einem Makro hinbekommen, dass wenn ich ein eine Zelle eine Straße mit Hausnummer eingebe, beispielsweise Hauptstraße 1, soll eine Msg Box erscheinen, das Problem ist das wenn beispielsweise Hauptstraße 113 eingegeben wird, kommt die Msg Box nicht.
Wie krieg ich es hin, dass nur "Hauptstraße" mit egal welcher Hausnummer das Makro aktiviert?
Danke im Voraus.
mfg
Nils

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mit Vba bei bestimmtem Text eine Msg Box zeigen
09.02.2017 13:43:18
ChrisL
Hi Nils
Private Sub Worksheet_Change(ByVal Target As Range)
Dim strStrasse As String
strStrasse = "Hauptstraße"
If Left(Target, Len(strStrasse)) = strStrasse Then MsgBox "blabla"
End Sub
cu
Chris
AW: Mit Vba bei bestimmtem Text eine Msg Box zeigen
09.02.2017 13:56:43
Nils
Vielen Dank, funktioniert einwandfrei.
Kann man das auch irgendwie nur auf eine Zelle beschränken?
Danke im Voraus.
mfg
Nils
AW: Mit Vba bei bestimmtem Text eine Msg Box zeigen
09.02.2017 14:12:18
Werner
Hallo Nils,
Private Sub Worksheet_Change(ByVal Target As Range)
Dim strStrasse As String
strStrasse = "Hauptstraße"
If Target.Address(0, 0) = "A1" Then 'Zelle anpassen
If Left(Target, Len(strStrasse)) = strStrasse Then MsgBox "blabla"
End If
End Sub
Gruß Werner
Anzeige
Bei einer Zelle...
09.02.2017 14:13:09
Case
Hallo, :-)
... etwa so (hier A6): ;-)
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A6")) Is Nothing Then
If Target.Value Like "Hauptstraße" & "*" Then MsgBox "Geht!"
End If
End Sub
Servus
Case

334 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige