Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 14:59:21
Zellformel in VBA
23.04.2024 14:47:39
Formel SVERWEIS
23.04.2024 14:27:08
Excel - Zellen verketten anhand anderer Spalte
23.04.2024 14:23:45
Gehe zu Tabellenblatt
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1656to1660
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1656to1660
1656to1660
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

If statement bei Eingabe ausführen

If statement bei Eingabe ausführen
27.11.2018 19:44:32
Knight
Hallo VBA-Community,
ich habe mal eine Frage. Ich habe eine excel erstellt, die automatisch eine Mail generiert. Es gibt die Möglichkeit unterschiedliche Kürzel zu benutzen und somit immer unterschiedlichen Mailinhalt zu generieren. Jetzt möchte ich, dass wenn das Kürzel "ESKC" in einem beliebigen Feld eingebe und das Makro ausführe, den Mail-Template für den Kürzel "ESKC" zu benutzen.
So stelle ich mir das ganze vor:
If "Eingabe = ESKC" then eskcTemplate()
else standardTemplate()
Wisst ihr, wie ich das umsetzen kann? Vielen Dank schonmal im Voraus!

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: If statement bei Eingabe ausführen
27.11.2018 19:49:14
Werner
Hallo,
was meinst du mit
einem beliebigen Feld
Gruß Werner
AW: If statement bei Eingabe ausführen
27.11.2018 20:09:13
Knight
Hallo Werner,
also egal in welche Zelle das Kürzel "ESKC" eingetragen wird. Also egal ob das jetzt in der Zelle A2 oder X2.
AW: If statement bei Eingabe ausführen
27.11.2018 20:55:22
Werner
Hallo,
eine Möglichkeit: 
Public Sub aaa()
Dim strSuche As String, raFund As Range
strSuche = "ESKC"
With Worksheets("Tabelle1")
Set raFund = .Cells.Find(what:=strSuche, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=True) _
If Not raFund Is Nothing Then
'hier Makroaufruf mit eskcTemplate()
MsgBox raFund.Address(0, 0)
Else
'hier Makroaufruf mit standardTemplate()
MsgBox "ESKC ist nicht vorhanden."
End If
End With
Set raFund = Nothing
End Sub
Gruß Werner
Anzeige
AW: If statement bei Eingabe ausführen
27.11.2018 21:37:23
Knight
Perfekt! Das ist was ich gesucht habe! Vielen vielen Dank!
Gerne u. Danke für die Rückmeldung. o.w.T.
27.11.2018 21:40:03
Werner

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige