Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 15:53:31
In Outlook (Exchange) Serientermin erstellen
18.04.2024 15:16:20
VBA Suchen, Kopieren, Einfügen
18.04.2024 15:16:07
Verschieben von Daten um bestimmte Zeilen nach unten
18.04.2024 15:13:44
Text ans untere Ende der Seite verschieben
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1120to1124
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
1120to1124
1120to1124
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Mehrere Comboboxen nacheinander an Makro übergeben

Mehrere Comboboxen nacheinander an Makro übergeben
MM
Hallo Zusammen,
Ich habe ein Userform mit 8 Comboboxen in dem Ich 8 verschieden Sheets eines Workbooks auswählen kann.
Die ausgewählten sheets will ich nacheinander an ein Makro übergeben, das er die Nacheinander abarbeitet.
zum Beispiel so:
Sub control()
Sheets(f_excel_interference.c_lip1.Value).Select
If Left$(Cells(5, 2).Value, 3) = "low" Then
MsgBox ("You have choosen the wrong Template")
Tcheck = False
Exit Sub
Else
Tcheck = True
End If
End Sub
Ich habe jetzt 8 Comboboxen die heißen c_Lip1 bis c_lip8.
Wie schaffe ich es jetzt ,das ich nacheinander die jeweilige Combobox hierein gekomme?
Sheets(f_excel_interference.c_lip1.Value).Select
Vielen Dank im vorraus.
gruß
MM
AW: Mehrere Comboboxen nacheinander an Makro übergeben
11.12.2009 09:41:44
{Boris}
Hi MM,
ungestestet
Dim x As Long
With f_excel_interference
For x = 1 to 8
Sheets(.Controls("c_lip" & x).Value).Select
Next x
End With
Grüße Boris
AW: Mehrere Comboboxen nacheinander an Makro übergeben
11.12.2009 10:01:41
fcs
Hallo MM,
eine entsprechende Prüfung für alle 8 Boxen schaut dann etwa so aus: 
Sub control()
Dim objControl As control, intI As Long, wks As Worksheet
For intI = 1 To 2
Set objControl = f_excel_interference.Controls("c_lip" & Format(intI, "0"))
If objControl.Object.ListIndex = -1 Then
MsgBox "Bitte in Combobox " & intI & " erst ein Template auswählen!"
Tcheck = False
Exit Sub
Else
Set wks = Worksheets(objControl.Object.Value)
If Left$(wks.Cells(5, 2).Value, 3) = "low" Then
MsgBox ("You have choosen the wrong Template in Combobox " & intI)
Tcheck = False
Exit Sub
Else
Tcheck = True
End If
End If
Next intI
End Sub

Gruß
Franz
Anzeige
AW: Mehrere Comboboxen nacheinander an Makro übergeben
11.12.2009 10:08:46
Renee
Mazwara MM,
uiuiui, da sehe ich schwarz ;-)
- Geschützte Namen (Control) für Subs verwenden
- Controls umbennen
- Select einsetzen
- Leere Zellen nicht prüfen
- Variablen nicht deklarieren (Tcheck)
- 1 Variable für 8 Durchgänge (ebenfalls Tcheck) ?
Aber vielleicht:
Sub ControlIt()
Dim objCtrl As Object
For Each objCtrl In f_excel_interference.Controls
If Left(objCtrl.Name, 3) = "lip" And _
VarType(objCtrl) = 8 Then
With Worksheets(objCtrl.Value)
If IsEmpty(.Cells(5, 2)) Then
MsgBox "something completely wrong!"
ElseIf Left(.Cells(5, 2).Value, 3) = "low" Then
MsgBox ("You have choosen the wrong Template")
Tcheck = False
Else
Tcheck = True
End If
End With
End If
Next
End Sub
Rennée lässt grüssen
Anzeige
welcome back owT
11.12.2009 10:33:01
Rudi
AW: Mehrere Comboboxen nacheinander an Makro übergeben
11.12.2009 10:21:39
MM
Hallo Zusammen
Erstmal danke für die Antworten.
Jedoch ist die eigentliche Aufgabe nicht die Prüfung des Template/sheets, sondern nur der erste Schritt eine viel längeren Makros. (War wohl etwas mißverständlich ausgedrückt, wollte nur nicht den ganzen Code reinkopieren)
Also es geht darum, das ich die Sheets aus den 8 verschiedenen Comboboxen nacheinandern durch das Makro abarbeiten lassen will.
Ich muss es also irgendwie hin bekommen, dass der Name der Combobox von hier:
Sheets(f_excel_interference.c_lip1.Value).Select
mit dem Wert der nächsten Combobox ersetzt wird.
und das Makro erneut durchläuft.
Dummy alternative ist, ich kopiere das Makro 8x untereinder mit jeweils eigenem Sheetnamen.Also:
Sheets(f_excel_interference.c_lip1.Value).Select
Makro
Sheets(f_excel_interference.c_lip2.Value).Select
Makro
Sheets(f_excel_interference.c_lip3.Value).Select
Makro
Ich hoffe ich habe mich jetzt klarer ausgedrückt
Anzeige
AW: Mehrere Comboboxen nacheinander an Makro übergeben
11.12.2009 10:40:52
Renee
Hi MM,
Wenn du die Vorschläge nicht interpretieren und/oder ausprobieren kannst, dann bleib lieber bei deiner
Dummy alternative und schreib alles untereinander.
Renée lässt grüssen
AW: Mehrere Comboboxen nacheinander an Makro übergeben
11.12.2009 10:44:42
MM 

Wenn du die Vorschläge nicht interpretieren und/oder ausprobieren kannst, dann bleib lieber bei  _
deiner
Dummy alternative und schreib alles untereinander
Scheint so, Trotzdem danke
OT: Na, hat dieses Mal ganz schön gedauert,...
11.12.2009 11:46:41
Luc:-?
...Renee!
Einer wartet schon seit Wochen sehnsüchtig! Viele Neue hier wdn dich gar nicht kennen, aber wir Alten schon... Welcome!
Gruß Luc :-?
PS: Bist du wieder in der CH oder hast du jetzt eine Möglichkeit von zuhause aus?
Anzeige
AW: OT: was ist schon Zeit ?
11.12.2009 11:50:42
Renee
Hi Luc,
Wieder in CH, für ein paar Wochen. Nix von daheim ;-)
Gedauert hat's weil noch ein Umweg über Kopenhagen nötig war ;-)
Wer soll den schon auf mich warten ?
Renée
Einer, dem du vor 2 Jahren mal deine...
11.12.2009 12:00:58
Luc:-?
...Mail-Adresse gegeben hast, dann nichts mehr mitgekriegt hat und im September höchst verwundert war, dich nicht zu erreichen...
Er fand, du würdest auf der gleichen „VBA-Wellenlänge“ mit ihm liegen... ;-)
schöWE Renée, aber wir lesen uns sicher noch... Luc :-?
OT@Renée : Kopenhagen ? - Bist Du OBAMA ;-) ?
11.12.2009 12:35:33
NoNet
Moin Renée,
welcome back for a while...
Apropos "Kopenhagen" : Du warst nicht zufällig bei Obamas Preisverleihung dabei oder bis evtl. sogar der/die verkappte OBAMA ;-)) ?
Salut in die Alpenrepublik, NoNet
Anzeige
Ohhh Sh*t - Oslo mit Kopenhagen verwechselt
11.12.2009 12:39:03
NoNet
...kaum hatte ich das abgesendet, da fiel es mir wie Zellen aus den Mappen :
Obama möchte zwar nach Kopenhagen kommen (zum Abschluss der "Klimakonferenz"), seinen Preis hat er natürlich - wie das Usus ist - in Oslo im Empfang genommen....
Mist - könnte ich meinen beitrag oben doch nur selbst wieder löschen... ;-)
NoNet
OT: eben!
11.12.2009 13:28:54
Rudi
Zeit spielt keine Rolle. Das einzige, das zählt, ist das Leben.
...und das kostet Zeit (u.m.)! Gruß owT
12.12.2009 04:13:22
Luc:-?
:-?

302 Forumthreads zu ähnlichen Themen

in Ergebnis einer Formel Text mit ausgeben
Walter

Nochmals Hallo,
leider die Lösung vergessen, wie man in einer Berechnungsformel, nen fest fixierten Text ausgeben kann.
Beispielergebnis: 12 Bananen (12 ist errechnet, Bananen ist der feste Text.
War, glaube ich, ganz einfach :-(((
Danke + Gruß
Walter
23.10.2008 23:15:29
Thread-ID: 1018831
7 Beiträge
Anzeige
Formel komplett aus anderem Blatt übernehmen
martin

Hallo.
In verschiedenen Arbeitsbättern befinden sich exakt die selben Rechnungen, jeweils mit unterschiedlichen Werten.
In einem Master-Blatt möchte ich gerne die Zeilen und Spaltenbeschriftungen, sowie die zu verwenden formeln definieren.
Könnt Ihr mir Tipps geben, wo ich dazu was...
18.06.2009 14:56:18
Thread-ID: 1082618
2 Beiträge
Abfrage Schliessen Userform über Kreuz
Roland

Hallo fleissige VBA-Helfer
Ich habe ein Problem, bei dem ich im Moment nicht durchblicke.
Ausgangslage:
Ein Code "Test0815" in einem normalen Modul
Eine Userform "Userform1"
Frage:
Wie kann ich im Test0815 abfragen ob die Userform1 übers Kreuz oben rechts verlassen wurde...
19.06.2009 11:50:51
Thread-ID: 1082841
5 Beiträge
Anzeige
Makroauführung über Menü verhindern
Heiko

hallo alle,
ich lasse über subs bereiche meines tabellenbattes sperren/ bzw. entsperren. das funktioniert auch ganz gut, nur besteht für den anwender über extras - makro ausführen noch die möglichkeit das entsperr-sub ausführen zu lassen.
wie kann ich das verhindern?
heiko
29.06.2009 10:01:13
Thread-ID: 1085027
3 Beiträge
VBA-Makro zum Datenübertrag zwischen Excel-Sheets
mctapt

Liebe VBA-Freunde,
ich muss auf der Arbeit ein Marko programmieren, mit dem sich Inhalte eines Sheets automatische beim öffnen der Datei in ein anderes übertragen lassen.
Die Idee íst dahinter:
Mein Chef will als Kontrolle der Berater sehen, mit wem sie so innerhalb der Woche te...
29.06.2009 21:19:08
Thread-ID: 1085193
7 Beiträge
Unterscheidung Drucken über Menü und Sofortdruck
Rolli_69

Hallo Forum,
ich hoffe einer von Euch kann mir helfen.
Ich habe in VBA den Druckenbefehl abgefangen, um farblich hinterlegte Eingabefelder vor dem Druck
wieder farblos zu machen und anschliessend wieder farblich zu hinterlegen.
Das funzt auch, nur möchte ich jetzt noch dem User...
01.07.2009 17:53:42
Thread-ID: 1085798
4 Beiträge
CheckBox in liste übertragen
Werner

Hallo zusammen,
ich möchte Daten von einer UserForm in ein Tabellenblatt untereinander schreiben, das klapt auch.
Bei der CheckBox1 habe ich ein problem. Einer bestimmten Zelle kann ich es zuordnen, es soll aber mit in die liste geschrieben werden, wie muss der Code aussehen?
Dim ZE...
06.07.2009 11:46:47
Thread-ID: 1086568
3 Beiträge
Verknüpfungen über DropDown ändern
Tanja

Hallöchen zusammen,
ich bin's nochmal :)
Ich habe nun ein erneutes Problem:
Ich habe Excel-Dateien, die ich in mein Excel-Sheet verknüpft habe (über Index und Vergleich).
Nun möchte ich diesen Dateien gerne ein bestimmtes Datum zuordnen und (habe mir über AutoFilter ein DropDown...
07.07.2009 16:24:18
Thread-ID: 1086979
7 Beiträge
Anzeige

Links zu Excel-Dialogen

ComboBox UserForm

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
6
4
1
4
7
2
6
3
2
6
1
1
6
1
1
3
2
6
10
2
9
6
2
10
2