Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1640to1644
1640to1644
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA End if wert vorhanden

Forumthread: 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
Anzeige

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
Anzeige
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?
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
Anzeige
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
Anzeige
AW: nochmal...
28.08.2018 09:48:01
msl
Das funktioniert ausgezeichnet! Vielen dank
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
Anzeige
;

Forumthreads zu verwandten Themen

VBA - If Anweisung mehrerer Abfragen
Jana

Hallo liebes Forum!!
Ich stehe gerade komplett (mal wieder auf dem Schlauch)!..
Ich habe einen umfangreichen VBA-Code mit Arrays. Nun möchte ich, dass in der Spalte 3 geguckt wird, ob die Zahl 2,3,7,9,11 oder 13 in dieser Zelle steht. Ist einer dieser Zahlen vorhanden, dann soll eine Va...
11.09.2008 12:06:28
Thread-ID: 1009072
3 Beiträge
VBA - if anweisung mit variable
Thomas

Hallo,
ich habe ein blöds Problem und zwar habe ich folgendes If Abfrage in einer Forschleife in Pseudo:
Wenn A1 kleiner als A2 tu dies sonst tu das
VBA:
For i = 2 To 5 If "A" & i
Irgendwie trifft dort immer nur Else ein, ich glaube es liegt an der Bedingungsformulier...
16.10.2008 10:10:50
Thread-ID: 1016763
4 Beiträge
Schleife: Zählen mit 2 Bedingungen
Sabrina

Hallo liebe Excel - Freunde,
Wollte erstmal sagen, dass ich das Forum ganz toll finde. Hat mir als Einsteiger schon den ein oder anderen Tipp gegeben.
Nun habe ich ein spezifisches Problem, bei dem ich einfach nicht weiterkomme. Ich hoffe ihr könnte mir dabei ein bisschen helfen.
Ic...
23.11.2008 20:21:00
Thread-ID: 1027155
6 Beiträge
ein Format in Zahl umwandeln VBA
Michael

Hallo!
Welche Möglichkeit gibt es über VBA eine Tabelle die ich zugesendet bekomme. Die Werte in Zahlen umzuwandeln. Beispiel
number name___ old__ new Change Change %
500041 system 23.26 23.28 -0.71 -2.45% #WERT!
540014 cpu 69.95 69.99 -0.22 -0.31% #WERT! =F...
29.01.2009 10:37:00
Thread-ID: 1044870
7 Beiträge
Sumif mit 2 Bedingungen
HeinzS

Hallo zusammen, kann mir jemand sagen, wie ich die formel richtig aufbauen muß:
Aufgabenstellung: Addiere alle Zahlen aus dem Bereich A1:A100, welche entweder =123 sind? Habe es mit Sumif versucht, scheitere aber an der 2ten Bedingung.
Danke für eure Hilfe!
Lg, Heinz
04.02.2009 10:26:00
Thread-ID: 1046913
4 Beiträge
VBA: Sub in anderem Workbook aufrufen
Peter/Berlin

Hi VBA-Könner/Kenner,
vielleicht bekomme ich bei Euch die nötige Anregung zu folg. Problem:
Im Arbeitsspeicher geöffnet sind die Workbooks "A" und "B".
Von "A" aus soll eine Sub xyz in "B" aufgerufen werden (Call xyz).
Es erscheint der Fehler: Sub nicht definiert oder ähnlich...
02.04.2009 13:20:17
Thread-ID: 1066313
2 Beiträge
Schriftart einer Email aus Excel mit VBA änder
Helmut

Hallo,
ich generiere aus Excel eine Email und möchte in dieser generierten Email die Schriftart im Body verändern.
Kann mir jemand helfen?
Danke
Helmut
11.05.2009 15:01:05
Thread-ID: 1074366
2 Beiträge
VBA Code if or then nicht richtig
andreas

Hallo zusammen,
habe hier in einer Anwendung einen kleine Code bei dem wird der Systembenutzer abgefragt, das funktioniert. Jetzt soll folgendes passieren, wenn der Benutzer "Andreas" oder "martin2" ist, soll Spalte "f:G" eingeblendet sein, bei allen anderen Systembenutzern soll Spalte "F:G...
13.05.2009 11:25:25
Thread-ID: 1074763
9 Beiträge
Schleife von Basic in VBA umschreiben
Basic

Hallo Excel-Freunde,
da ich kein VBA-Basic schreiben kann, würde ich gerne eure Hilfe beanspruchen.
Die vorliegende Basic For Next Schleife läuft mit den angegebnen Variablen und Parameter,
würde sie gerne in VBA_Code mit einem Makro jedesmal starten.
A = 11 : B = 12
For I =...
18.07.2009 17:17:03
Thread-ID: 1089659
9 Beiträge
if ... then.. AND?
Sascha

einen schönen guten tag an alle,...
wie kann ich nach Then, vba 2 "Dinge" tun lassen ....(was für ein deutsch)... :)
If Sheets("Prüfen").Range("E10") = "Nein" Then
intAntb = MsgBox(Prompt:="Nicht vollständig, WEITER?", Buttons:=vbYesNo)
if intAntb = vbNo Then Exit Sub And? Userf...
29.09.2009 15:29:34
Thread-ID: 1106213
5 Beiträge
Anzeige
VBA-Befehl: Zeichen in Schriftart nicht vorhanden
Alex

Schönen guten Tag zusammen,
leider ist der Betreff nicht sehr aussagekräftig, da ich für die Frage etwas weiter ausholen muss. Man möge mir verzeihen.
Lage: Ich will mir für eine Schriftart Code Charts analog denen auf unicode.org erstellen (Beispiel: http://www.unicode.org/charts/PDF/U...
30.09.2009 00:02:51
Thread-ID: 1106220
5 Beiträge
Anzeige
VBA Daten einlesen mit var. Überschriftenzeile
Stefan

Hallo zusammen,
ich habe vor einiger Zeit hier schon mal um Rat gefragt als ich Daten aus einer externen Arbeitsmappe einlesen wolle. Nun möchte ich in einem Optionsblatt eine Variable einbinden in der die Überschriftenzeile zum einlesen steht:
Public Sub data() Dim objWB As Workbook, o...
17.11.2009 13:40:57
Thread-ID: 1117728
6 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige