Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1640to1644
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
Inhaltsverzeichnis

VBA End if wert vorhanden

VBA End if wert vorhanden
27.08.2018 14:49:05
msl
Hallo,
was ich nicht hinrkiege:
Wenn Tabelle 1 Datum aus K7 in Tabelle 2 Spalte A vorhanden, dann Makro stoppen. Wenn nicht vorhanden Makro ausführen.
DANKE

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA End if wert vorhanden
27.08.2018 15:06:36
msl
Nochmals in angemessenem Deutsch:
WENN
Datum aus K7 (Tabelle1)
in
Spalte A (Tabelle2)
enthalten,
dann STOP MAKRO. Wenn nicht vorhanden, ganz normal ausführen.
Kann mir da jemand weiterhelfen?
Grüße
AW: VBA End if wert vorhanden
27.08.2018 15:16:41
EtoPHG
Hallo,
so:
    Dim doIT As Boolean
On Error Resume Next
doIT = WorksheetFunction.Match(Worksheets(1).Cells(7, 11), Worksheets(2).Columns(1), 0) > 0
If Err.Number = 0 Then Exit Sub
On Error GoTo 0
MsgBox "do what you must do..."
Gruess Hansueli
AW: VBA End if wert vorhanden
27.08.2018 15:24:21
msl
Läuft wunderbar! Danke!
AW: VBA End if wert vorhanden
27.08.2018 17:18:14
msl
Irgendwie kommt die MsgBox in beiden Fällen...kann das möglich sein?
Anzeige
AW: VBA End if wert vorhanden
27.08.2018 17:31:25
Werner
Hallo,
z.B. so:
Public Sub aaa()
If WorksheetFunction.CountIf(Worksheets("Tabelle2").Columns(1), Worksheets("Tabelle1").Range(" _
K7")) > 0 Then
Call DeinMakro
Else
'nix machen
End If
End Sub
Gruß Werner
nochmal...
27.08.2018 17:33:05
Werner
Hallo,
...den Zeilenumbruch hat die Forensoftware rein gehauen.
Public Sub aaa()
If WorksheetFunction.CountIf(Worksheets("Tabelle2").Columns(1), _
Worksheets("Tabelle1").Range("K7")) > 0 Then
Call DeinMakro
Else
'nix machen
End If
End Sub
Gruß Werner
AW: nochmal...
28.08.2018 09:48:01
msl
Das funktioniert ausgezeichnet! Vielen dank
Anzeige
Gerne u. Danke für die Rückmeldung. o.w.T.
28.08.2018 17:15:00
Werner
AW: Ja, das kann passieren
27.08.2018 20:26:24
Gerd
Moin
Sub Pruefe_ein_Datum()
If IsError(Application.Match(CLng(Tabelle1. _
Cells(7, 11).Value), Tabelle2.Columns(1), 0)) Then Exit Sub
MsgBox "Do something!"
End Sub

Gruß Gerd

312 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige