Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1668to1672
1668to1672
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA IF Makro1= wahr Then Call Makro

Forumthread: VBA IF Makro1= wahr Then Call Makro

VBA IF Makro1= wahr Then Call Makro
23.01.2019 17:13:55
Max
Hallo zusammen,
ich bin aufgrund einer Anforderung nun zu VBA gekommen und konnte meine ersten Probleme innerhalb kürzester Zeit lösen, jedoch bleibt eine Angelegenheit immer wieder offen und ich finde weder in deutschen noch englischen Foren eine konkrete Lösung.
Situation wie folgt:
Die Tabelle beginnt in Spalte C. Makro1 verweist auf die per Dropdown ausgewählte Exceltabelle (Argument1).
Makro2 prüft ein Argument2 der Exceltabelle und soll wenn das Ergebnis aus Makro3 einem in einer Zelle gewähltem Wert (Zelle E1) entspricht, Makro 3 ausführen. Andernfalls soll leer angezeigt werden, oder ggf. erst wieder der nächste, nicht leere Wert angezeigt werden.
Der aktuelle Stand sieht so aus:
Makro1 funktioniert problemlos.
Makro2 erkennt Makro3 nicht an.
Makro 3 funktioniert problemlos.
Option Explicit
--------------------------------------- 

Sub Macro3 ()
'Kommentar'
With ThisWorkbook.Worksheets("Datenbasis").Activate
Range ("C6").Formula = Range("G3").value
End With
End Sub

-------------------------------------- 

Sub Makro2 ()
'Kommentar'
If Makro3 = Range("E1").value Then
Call Makro3
Else MsgBox ""
End If
End With
End Sub

Ich würde mich sehr freuen, wenn jemand eine Idee hat, wie eine IF Macro = true Then Macro Funktion aussehen kann. Mein Syntax-Wissen für VBA reicht an dieser Stelle leider nicht aus.
VG Max
Anzeige

31
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA IF Makro1= wahr Then Call Makro
23.01.2019 17:19:36
onur
Beschreib mal besser, was du mit den 3 Makros erreichen willst.
AW: VBA IF Makro1= wahr Then Call Makro
23.01.2019 17:46:56
Max
Makro 1 soll die richtige Exceldatei vom Rechner zuordnen, damit die Oberkategorien aktuell bleiben.
Makro 2 soll entscheiden, ob die Subkategorie in einer Datenreihe der vorab definierte Subkategorie entspricht ( in welchem Fall Makro 3 agieren soll) oder nicht ( in welchem Fall "" zurückgegeben werden soll)
Makro 3 soll die Datenreihen aus der Bezugsdatei (oben als Exceldatei bezeichnet) darstellen
Bsp.
Oberkategorien in den Spalten: Name; Kategorie; Artikelnr.; Preis
Kategorie in Spalte 2: Kleidung; Spielzeug; Haushaltswaren
Zeilen sind mit Datensätzen der einzelnen Produkte gefüllt
E1 definiert die (Produkt-)Kategorie.
Aufgabe an Makro2: Zeige mir nur Werte an, bei denen die Kategorie Spielzeug entspricht.
Ich hoffe das verdeutlicht mein Ziel.
Anzeige
AW: VBA IF Makro1= wahr Then Call Makro
23.01.2019 18:42:50
onur
"Makro 3 funktioniert problemlos." ?
Wie kommst du darauf?
AW: VBA IF Makro1= wahr Then Call Makro
23.01.2019 18:46:51
Max
Makro3 hat keinerlei Bedingungen und soll lediglich den Wert aus einer anderen Exceltabelle darstellen. das Makro3 funktioniert alleine ausgeführt und zeigt die Daten an, wie erwünscht.
Problematisch ist weiterhin nur die Verbindung mit der IF Funktion in Makro2.
Anzeige
AW: VBA IF Makro1= wahr Then Call Makro
23.01.2019 18:49:15
onur
Und wie wird die Date geöffnet?
AW: VBA IF Makro1= wahr Then Call Makro
23.01.2019 22:05:13
Max
Welche Datei?
Nach Anfrage von Piet habe ich die Datei als Beispiel Datensatz konfiguriert. Anbei die Antwort meinerseits:
"Hallo Piet,
es hat etwas gedauert, aber habe ich endlich die Arbeit hinter mir gelassen und eine Beispieldatei gebastelt. Sie bildet mit der Ausnahme, dass alle Arbeitsmappen in einer Excel sind, die Situation wie besprochen ab. Das mit der Fehlermeldung konnte ich klären, das Ergebnis stimmt aber leider trotzdem nicht, da ich bei IF oder ELSE offensichtlich einen Fehler habe.
Du findest sie hier https://www.herber.de/bbs/user/127046.xlsm
Ich bin für jede Unterstützung dankbar. VG Max"
Vielleicht kannst Du mich so besser verstehen. VG Max
Anzeige
AW: VBA IF Makro1= wahr Then Call Makro
23.01.2019 22:11:20
onur
"dass alle Arbeitsmappen in einer Excel sind" ? Verwechselt du was?
Eine Arbeitsmappe ist eine Datei und eine Tabelle ist ein Worksheet.
AW: VBA IF Makro1= wahr Then Call Makro
23.01.2019 22:42:20
Max
Nein. Im Originalproblem habe ich 2 Arbeitsmappen (2 Exceldateien in unterschiedlichen Laufwerken), weswegen Standardlösungen nicht funktionierenund ich zu VBA gekommen bin.
VG Max
Anzeige
AW: VBA IF Makro1= wahr Then Call Makro
23.01.2019 22:52:11
onur
Und in welcher Datei sind die einzelen Makros und wie werden sie aufgerufen?
AW: VBA IF Makro1= wahr Then Call Makro
23.01.2019 22:28:56
onur
"Makro 3 soll die Datenreihen aus der Bezugsdatei (oben als Exceldatei bezeichnet) darstellen!"-DIESE DATEI .
AW: VBA IF Makro1= wahr Then Call Makro
23.01.2019 22:53:18
Max
Bezugsdatei ist im Beispiel das Worksheet Daten1218, das sich in Realität in einem anderen Dokument,auf einem anderen laufwerk befindet.
Die Datei soll nicht geöffnet werden, da sonst auch evtl. über indirekt() möglich gewesen wäre. Die Makros Makro1 und Makro3 können ohne Öffnen der Datei auf die Inhalte der jeweiligen Zellen zugreifen.
Hilfe brauche ich daher bei Makro2, um nur die gewünschten Datenreihen der jeweils ausgewählten Kategorie anzeigen zu lassen.
Anzeige
AW: VBA IF Makro1= wahr Then Call Makro
23.01.2019 22:57:10
onur
"Die Makros Makro1 und Makro3 können ohne Öffnen der Datei auf die Inhalte der jeweiligen Zellen zugreifen" - WIE KOMMST DU EIGENTLICH AUF DIE SCHNAPSIDEE?
Das einzige, was die machen könnten, wäre aud das BLATT "Daten1218" zugreifen.
AW: VBA IF Makro1= wahr Then Call Makro
23.01.2019 23:13:19
Max
Ich verstehe die Aufregung nicht.
Abgesehen davon ist dieser Part überhaupt nicht Teil meines Problems.
Ich suche hier kein Urteil, sondern konstruktive Verbesserungsvorschläge. Damit kann ich mir dann selber ein Urteil über meine Herangehensweise bilden.
VG Max
Anzeige
AW: VBA IF Makro1= wahr Then Call Makro
23.01.2019 23:26:11
onur
Du hast in Wahrheit NULL Ahnung, was dein "Code" macht, wahrscheinlich weil er nicht von dir stammt, sondern wahrscheinlich von jemandem, der noch weniger Ahnung hat, und behauptest, Makro 1 und 3 laufen problemlos, weil du nicht mal in der Lage bist, zu überprüfen, ob das der Fall ist.
Du bist nicht in der Lage, zu erklären, wie und wann die Makros aktiviert werden und nicht einmal zu beschreiben, was sie überhaupt machen sollen oder was genau dein Ziel ist.
Wahrscheinlich wäre alles mit EINEM Makro und ein paar Zeilen Code (aber bestimmt nicht, ohne die andere Datei zu öffnen) zu lösen, wenn man nur wüsste, was überhaupt dein Ziel ist.
Dann bist du auch noch beleidigt und gibst pampige arrogante Antworten auf Fragen.
Da ich keine Lust habe auf so eine Kinderkacke und dir alles aus der Nase zu ziehen, bin ich raus.
Anzeige
AW: VBA IF Makro1= wahr Then Call Makro
24.01.2019 11:58:07
Max
Wenn ich 1:1 die Ergebnisse sehe, die in der Tabelle stehen, die über die Verlinkung mittels Dateilauswahl angegeben ist, meine ich, dass es funktioniert. Ich habe keinen Anhaltspunkt dafür, dass das Gegenteil der Fall sein sollte.
Sicherlich gibt es eine einzige Lösung in 30 Zeilen Code, allerdings bin ich gerade erst in das Thema eingestiegen und bevorzuge eine Schritt-für-Schritt-Lösung.
Trotzdem danke ich Dir für Deine erheiternden Kommentare und ein so herzliches Willkommen im Forum.
VG Max
Anzeige
AW: VBA IF Makro1= wahr Then Call Makro
23.01.2019 19:33:26
onur
Wenn du nicht mal Fragen beantwortest - Dann such mal weiter.
AW: VBA IF Makro1= wahr Then Call Makro
23.01.2019 22:08:02
Max
Leider bin auch ich nur ein Mensch und verlasse die Arbeit, pendle zurück in mein Apartment und mache mir etwas zum Essen. Das soll auch noch vorkommen ;)
VG Max
AW: VBA IF Makro1= wahr Then Call Makro
23.01.2019 19:24:32
Max
Makro3 hat keinerlei Bedingungen und soll lediglich den Wert aus einer anderen Exceltabelle darstellen. das Makro3 funktioniert alleine ausgeführt und zeigt die Daten an, wie erwünscht.
Problematisch ist weiterhin nur die Verbindung mit der IF Funktion in Makro2.
Anzeige
AW: VBA IF Makro1= wahr Then Call Makro
23.01.2019 17:23:35
Piet
Hallo Max
Warum bitte so kompliziert denken mit IF Makro3 = True? - Da kann ich dir nicht helfen!!!
Was in Zelle "Datenbasis" Range(E1) drin steht, oder zur Entscheidung drin stehen soll weist nur du!
mfg Piet
Erfahrene alte Praktiker programmieren das anders, einfach so:
If ThisWorkbook.Worksheets("Datenbasis").Range("E1").Value = "such dir was aus!!" then
Call Makro3
end if
Anzeige
AW: VBA IF Makro1= wahr Then Call Makro
23.01.2019 17:56:55
Max
In diesem Zusammenhang fehlt mir leider die Abhängigkeit von E1, da hierbei nur ein Wert X von E1 abhängig wäre. Wenn bspw. E1 die Kategorie definiert und ich nun die Kategorie Spielzeuge auswähle, ruft das Makro3 nun trotzdem alle Daten auf.
E1 Definition Spielzeug = "such dir was aus" call Makro3 erfordert dann immer noch die Definition der Abhängigkeit von "such dir was aus" von den durch Makro3 dargestellten Werten.
In der weiteren Antwort habe ich die Situation noch einmal besser dargestellt.
Wenn es nicht so kompliziert wäre, hätte ich sicherlich eine Lösung gefunden...
Evtl. gibt es noch Alternativen, allerdings ist 1 hr VBA noch etwas zu wenig, um einen Workaround zu kennen. Trotzdem danke für den Versuch.
Anzeige
AW: VBA IF Makro1= wahr Then Call Makro
23.01.2019 18:02:14
Piet
Hallo Max
du hast onur eine schöne Erklaerung abgegeben was du erreichen willst. Ich erinnere an deinen Code:
If Makro3 = Range("E1").value Then - Was bitte steht den in dieser Zelle genau drin?
Der Text "Makro3" ganz sicher nicht. Wenn aber durch IF etwas Entschieden werden soll, was muss da konkret stehen?
Das kann ja auch "" = nıx sein!! - Hast du meinen Vorschlag mal getestet? - Bei nix setzte auch bitte ein "" ein!
mfg Piet
Anzeige
AW: VBA IF Makro1= wahr Then Call Makro
23.01.2019 18:18:58
Max
Hallo Piet,
ich habe es mal versucht und theoretisch ist es mittels einer kleinen Anpassung möglich, da ich das makro3 vorablaufen lasse und mich auf die Ergebniszelle beziehen könnte. Das sieht bei mir dann so aus:
--------------------
Makro3 wie bisher gehabt
-------------------- 
Sub Makro2()
'Verweis in die ausgewählte Kategorie'
With ThisWorkbook.Worksheets("Datenbasis").Activate
If ThisWorkbook.Worksheets("Datenbasis").Range("E1").Value = Range("C6").Value Then
Call Makro3
Else: MsgBox ""
End If
End With
End Sub

------------------
IF entscheidet ob die durch Makro3 in C6 ausgegebene Kategorie der Definition in E1 entspricht, wodurch dann C6 bzw. im Gegenereignis "leer" angezeigt werden soll.
Die Fehlermeldung über das Makro hat sich mit der Adaption Deiner Idee erledigt, allerdings zeigt mir Excel nun einen Fehler in der Ausführung an - interessanterweise ganz ohne Fehlermeldung: nur ein weißes Kästchen mit "OK".
Ich befürchte die Abfolge der 2 Makros bereitet Probleme, bin mir jedoch nicht über die genaue Ursache im Klaren.
Anzeige
AW: VBA IF Makro1= wahr Then Call Makro
23.01.2019 18:09:56
Piet
Hallo Max
ich habe gerade diene Antwort gelesen, 1 Std VBA ist wirklich zu wenig um alles zu verstehen!
Wenn wir auf die Zelle E1 nicht zugreifen können um eine Entscheidung zu treffen, worauf müssen oder können wir dann zugreifen? - Wir sehen deine Datei ja nicht. Eine kleine Beispieldatei waere hier nützlich, damit wir uns die ganze Aufgabe ansehen können. Wir könnten ja auch Daten aus einer UserForm zur Entscheidung nehmen. Ohne die Datei zu sehen ist das eher ein "heiteres Ratespiel"!
mfg Piet
Anzeige
AW: offen stellen vergessen oWt
23.01.2019 18:11:08
Piet
AW: offen stellen vergessen oWt
23.01.2019 18:21:20
Max
Hallo Piet,
am Firmenrechner sind leider alle Down- und Uploads ausgeschlossen, aber ich kann gerne später noch eine Datei beifügen.
VG Max
AW: VBA IF Makro1= wahr Then Call Makro
23.01.2019 22:02:25
Max
Hallo Piet,
es hat etwas gedauert, aber habe ich endlich die Arbeit hinter mir gelassen und eine Beispieldatei gebastelt. Sie bildet mit der Ausnahme, dass alle Arbeitsmappen in einer Excel sind, die Situation wie besprochen ab. Das mit der Fehlermeldung konnte ich klären, das Ergebnis stimmt aber leider trotzdem nicht, da ich bei IF oder ELSE offensichtlich einen Fehler habe.
Du findest sie hier https://www.herber.de/bbs/user/127046.xlsm
Ich bin für jede Unterstützung dankbar. VG Max
Anzeige
AW: VBA IF Makro1= wahr Then Call Makro
24.01.2019 00:58:05
Piet
Hallo Max
ich habe mir gerade dein Beispieldatei angesehen. Erster Eindruck:
Da sind aber noch einige VBA Grundkenntnisse über Programmieren und die Funktion von With erforderlich.
Für hete ist es mir u spaet, gave schon zuviel programiert um da noch klar denken zu können. (s. Tippfehler!)
Habe hier 2:57 (nicht deutsche Zeit) gehe ins Bett, muss mal schlafen. Melde mich wieder.
mfg Piet
Anzeige
AW: VBA IF Makro1= wahr Then Call Makro
24.01.2019 11:48:13
Max
Das ist gut nachvollziehbar.
Ich habe mich bisher noch nicht mit VBA beschäftigt und Kenntnisse aus anderen Programmen helfen mir leider nicht sehr viel weiter, außer, dass ich im Optimalfall weiß, was ich überhaupt suche^^
Bis bald. VG Max
AW: VBA IF Makro1= wahr Then Call Makro
24.01.2019 00:58:07
Piet
Hallo Max
ich habe mir gerade dein Beispieldatei angesehen. Erster Eindruck:
Da sind aber noch einige VBA Grundkenntnisse über Programmieren und die Funktion von With erforderlich.
Für hete ist es mir u spaet, gave schon zuviel programiert um da noch klar denken zu können. (s. Tippfehler!)
Habe hier 2:57 (nicht deutsche Zeit) gehe ins Bett, muss mal schlafen. Melde mich wieder.
mfg Piet
Anzeige
AW: VBA IF Makro1= wahr Then Call Makro
24.01.2019 16:35:53
Piet
Hallo Max
ich habe eine Weile gebraucht um mich durch den ganzen Thread durchzulesen, (gehe darauf bitte Nicht ein)
Schwieriger war es deine Makros zu verstehen, denn die widersprechen jeder Excel und Programmier Logik.
kleiner VBA Grundkurs: - With Klammer!!
With bedeutet im Klartext das nachgestellte Befehle sich NUR auf diesen Ausdruck beziehen, Wenn sie durch einen vorgestellten Punkt markiert werden. Es ist ein entscheidender Unterschied ob im Makro steht:- .Range("E1").Value oder Range("E1").Value - ohne Punkt!
Dieser dumme kleine Punkt wied gerne übersehen, wie reagiert Excel darauf? Beim Punkt bezieht sich der Bereich auf ThisWorkbook und die dahinter stehende Tabelle! Beim normalen Range holt Excel sich den Wert aus dem gareade aktiven Sheet. Und ist eine zweite Datei geöffnet auch immer aus der gerade aktiven Datei!! Damit stimmt die Auswertung dann absolut nicht mehr!!!
With mit Activate am Ende, kannst du gleich auf With verzichten, weil dieses Blatt ohnehin aktiviert wird! Klappt mit "ThisWorkbook" aber auch nicht wenn eine andere Datei geöffnet und aktiv ist!! Das sind VBA Grundkenntnisse die man erst im Laufe der Zeit erlernt!
Mit Makro1 setzt du in Zelle C6 immer wieder eine Formel ein, überschreibst aber die vorherige!
Ob das richtig ist musst du wissen? Dasselbe gitl für Makros3, kannst du auch wie unten schreiben!
Makro2 habe ich dir mal umgeschrieben, damit die Auswertung stimmt. Wofür du result brauchst weiss ich nicht?
Bei Else kannst du statt result =0 auch eine MsgBox reinsetzen: MsgBox "Kategorie nicht gefunden"
End-Befehle die zm Schluss stehen wie: - Activate, Selsct, Copy, Paste - gehören NIE ans Ende eines With Ausdruck!!
Ich hoffe meine Ausführungen helfen dir weiter VBA und With jetzt besser zu verstehen, mehr kann ich nicht tun!
mfg Piet
Sub Makro3()
'Verweis auf die unter B1 ausgewählte Daten-Datei'
Worksheets("VBA").Activate
Range("C7").Formula = Range("H3").Value
End Sub
Sub Makro2()
'Test auf die in E1 ausgewählte Kategorie'
Dim result As String
With ThisWorkbook.Worksheets("VBA")
If .Range("E1").Value = .Range("C7").Value Then
Call Makro3
Else: result = 0
End If
End With
End Sub

Anzeige
AW: VBA IF Makro1= wahr Then Call Makro
25.01.2019 09:45:08
Max
Danke für die ganzen Tipps, ich werde mich anhand dessen durchprobieren.
Mit result hatte ich mir nur erhofft eine Ausgabe von 0 oder "" in dem jeweiligen Feld festlegen zu können, da die Msg. Box mir im ersten Ansatz dann auch nur eine leere Msg.Box angezeigt hat - mit den Werten der Tabelle konnte ich dadurch nicht arbeiten.
Das Grundverständnis hilft mir sicherlich am besten weiter, um die Hintergründe besser verstehen zu können.
Nochmals vielen Dank.
VG Max
Anzeige
;

Forumthreads zu verwandten Themen

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
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
Seitenumbruch per VBA nach Begriffsänderung
Hans

Ich habe folgendes Problem: Ich möchte per VBA einen Seitenumbruch variabel definieren. Der Seitenumbruch (oder mehrere) soll z.B. gesetzt werden, wenn in einer Spalte sich der Begriff in der Zelle ändert.
Beispiel: Kunde A ist in C2 bis C5 vorhanden, Kunde B ist in C6 bis C7 vorhanden, Ku...
15.02.2010 09:51:28
Thread-ID: 1138574
6 Beiträge
If And Then
Ingo

Hi!
Ich habe eine ComboBox, in der Daten aus einer Spalte aufgeführt werden sollen. Wichitg ist, dass nur Daten im Datumsformat enthalten sein sollen, um den Tabellenkopf auszuschließen, die Daten in aufsteigender Reihenfolge in der Box stehen sollen (es kommen mehrere gleiche Daten hintere...
17.05.2011 16:29:37
Thread-ID: 1214833
8 Beiträge
Spalten anhand Überschriften ausblenden (VBA)
Meppi

Hallo,
ich habe folgendes Problem und hoffe, dass mir jemand von euch weiterhelfen kann:
Ich habe in einer Excel-Datei mehrere Tabellenblätter in denen sich Webabfragen (in jedem Tabellenblatt bis zu 3 Webabfragen) befinden. Sie müssen täglich aktualisiert werden. Dabei wird auch automa...
14.12.2011 13:40:07
Thread-ID: 1242082
6 Beiträge
Hilfe if and then
Christopher

Hallo Leute,
ich brauch Eure Hilfe. Ich versuch schon seit ner geschlagenen Stunde diese Formel zum Laufen zu bringen:
Public Sub Aus_Einblenden() Application.ScreenUpdating = False Dim iSpalte As Integer Dim bSpalte As Integer Dim lZeile As Long Rows("18:880").EntireRow.Hidden = Fal...
12.08.2013 09:41:37
Thread-ID: 1326475
14 Beiträge
Excel:Zählenwenn; VBA:Countif - and. Ergebnis
Peter

Liebes Forum
Im Excel-Sheet überprüfe ich, ob ein bestimmtes Datum vor oder nach einem anderen Datum ist. ich erhalte bei zwei Abfragen das erwartete Ergebnis.
Wenn ich das gleiche mit VBA zu lösen versuche, erhalte ich nicht beide Male das gleiche Resultat. Mir ist nicht klar, weshalb....
01.01.2014 18:34:07
Thread-ID: 1343878
4 Beiträge
Schleife If ...and ... then
rinkadink

Tach Zusammen,
ich komme leider nicht wieter und hoffe jemand kann mir (noch) helfen :)
Ich habe TB 1 + TB 2
In TB 1 Spalte C stehen Werte z.b. 4
In TB 2 Spalte B, C und D stehen Werte z.b. B1 = 1 + C1 = 10 // D1 = XXX
Mein VBA sollte nun eigentlich über herausfinden, da...
12.09.2014 13:21:31
Thread-ID: 1381307
9 Beiträge
Anzeige
VBA Makro in eine Schleife ändern
Mr.

Hallo, ich habe folgendes Makro per Rekorder aufgenommen: Sub Makro1() Range("A1:G5").Select Selection.Copy Range("A6").Select ActiveSheet.Paste End Sub
Nun möchte ich, dass der kopierte Bereich in einer Schleife also wiederkehrend bis zur Zeile 2500 eingefügt wird. Wie kann ich den Befeh...
05.11.2015 11:47:19
Thread-ID: 1456450
4 Beiträge
VBA - IF then...???
Thomas

Hallo zusammen,
in einer Userform habe ich mehrer Comboboxen
If ComboBox1.Value = "" Then
Exit Sub
Else
...Prozedur
End If
If ComboBox2.Value = "" Then
Exit Sub
Else
...Prozedur
End If
If ComboBox3.Value = "" Then
Exit Sub
Else
...Pro...
13.12.2015 12:15:41
Thread-ID: 1464114
5 Beiträge
Anzeige
VBA If Datum Then...
Tim

Hallo zusammen,
folgendes Problem:
Ich habe in einer Userform verschiedene Abfragen. Unter anderem einen DTPicker zur Abfrage des Datums. Zur Zeit werden die Daten aus der Userform in einen andere Arbeitsmappe in der Tabelle "Datenbank" abgelegt.
Jetzt möchte ich eine Abfrage die im...
16.03.2016 13:40:36
Thread-ID: 1482355
7 Beiträge
VBA if then else mit ComboBoxen
Addi

Hallo Zusammen,
ich möchte im folgenden Coding in der "SaveAs-Zelle" einen bestimmten Dateinamen setzen - da wo die XXXXXX stehen.
Der Name soll sich aus den strDateiname1 und strDateiname2 ermitteln und zwar, wenn in strDateiname2 kein Wert steht soll strDateiname1 gewählt werden, anso...
23.11.2016 12:25:41
Thread-ID: 1526517
3 Beiträge
Anzeige

Infobox / Tutorial

VBA IF Bedingungen für Makros: So funktioniert's

Schritt-für-Schritt-Anleitung

  1. VBA-Umgebung öffnen: Drücke ALT + F11, um den VBA-Editor in Excel zu öffnen.
  2. Neues Modul erstellen: Rechtsklicke im Projektfenster auf "Einfügen" und wähle "Modul".
  3. Makros erstellen: Füge die folgenden Makros in das Modul ein:
Sub Makro1()
    ' Hier kommt der Code für Makro1
End Sub

Sub Makro2()
    ' Hier kommt der Code für Makro2
End Sub

Sub Makro3()
    ' Hier kommt der Code für Makro3
End Sub
  1. IF-Bedingung für Makro2 hinzufügen: In Makro2 kannst du die IF-Bedingung wie folgt umsetzen:
Sub Makro2()
    If ThisWorkbook.Worksheets("Datenbasis").Range("E1").Value = "KATEGORIE" Then
        Call Makro3
    Else
        MsgBox "Kategorie nicht gefunden"
    End If
End Sub
  1. Makros ausführen: Du kannst die Makros manuell ausführen oder sie an einem Ereignis (wie einem Button-Klick) binden.

Häufige Fehler und Lösungen

  • Fehler: Makro nicht gefunden: Stelle sicher, dass alle Makros im selben Modul definiert sind und dass du sie richtig aufrufst.

  • Fehler: Zelle wird nicht gefunden: Überprüfe, ob die Zelle, auf die du zugreifen möchtest (z.B. Range("E1")), korrekt angegeben ist.

  • Fehler: Leere MsgBox: Wenn die MsgBox leer bleibt, stelle sicher, dass die Variable oder der Ausdruck, den du überprüfst, tatsächlich einen Wert hat.

Alternative Methoden

  • Verwendung von Select Case: Anstatt mehrere IF-Bedingungen zu nutzen, kannst du auch Select Case verwenden, um verschiedene Kategorien zu prüfen.
Sub Makro2()
    Select Case ThisWorkbook.Worksheets("Datenbasis").Range("E1").Value
        Case "Spielzeug"
            Call Makro3
        Case Else
            MsgBox "Kategorie nicht gefunden"
    End Select
End Sub
  • Benutzerdefinierte Funktionen: Erstelle eine Funktion, die die Kategorie prüft, und rufe diese innerhalb deines Makros auf.

Praktische Beispiele

  • Beispiel 1: Wenn du die Kategorie "Spielzeug" in Zelle E1 prüfst und dann Makro3 aufrufst, wenn die Bedingung erfüllt ist.
Sub Makro2()
    If ThisWorkbook.Worksheets("Datenbasis").Range("E1").Value = "Spielzeug" Then
        Call Makro3
    End If
End Sub
  • Beispiel 2: Verwende ein Dropdown-Menü in Excel, um die Auswahl für E1 zu steuern, und lasse das Makro nur dann laufen, wenn die Auswahl korrekt ist.

Tipps für Profis

  • Debugging: Nutze den Debugger (F8), um durch deinen Code zu gehen und zu sehen, wo es möglicherweise Probleme gibt.

  • Fehlerbehandlung: Implementiere Fehlerbehandlung mit On Error Resume Next, um unerwartete Fehler elegant zu handhaben.

  • Makros dokumentieren: Kommentiere deinen Code gut, damit du und andere ihn später besser verstehen können.

FAQ: Häufige Fragen

1. Wie kann ich ein Makro automatisch ausführen, wenn eine Zelle geändert wird? Du kannst das Worksheet-Change-Ereignis verwenden, um ein Makro auszuführen, wenn sich ein Wert in einer bestimmten Zelle ändert.

2. Was ist der Unterschied zwischen Call Makro und Makro? Call Makro ist eine explizite Methode, um ein Makro aufzurufen. Du kannst auch einfach Makro schreiben, um es auszuführen. Beide sind gültig, aber Call macht es klarer, dass du eine Subroutine aufrufst.

3. Wie kann ich mehrere Bedingungen in IF-Bedingungen prüfen? Du kannst And oder Or verwenden, um mehrere Bedingungen in einer IF-Anweisung zu kombinieren. Beispiel:

If x > 5 And y < 10 Then
    Call Makro3
End If

4. Wo finde ich mehr Informationen über VBA? Es gibt zahlreiche Online-Ressourcen und Kurse, wie z.B. VBA Grundkurse oder Tutorials für Dummies, die dir helfen, mehr über Excel VBA zu lernen.

Beliebteste Forumthreads (12 Monate)

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