Suchergebnisse
Suchergebnisse 1-5 von insgesamt 5.
Hier erfahren Sie, wie einfach Sie Ihren Browser aktualisieren können.
-
Hallo zusammen, ich bin total neu hier und auch generell neu mit VBA unterwegs. Mit Hilfe von einigen guten Videos habe ich es nun geschafft, mir eine Eingabemaske zu bastel die alle relevanten Daten abfragt und dann in einer fortlaufenden Tabelle (Datenbank) ablegt. Nun möchte ich diese Maske erweitern und mit Hilfe einer ComboBox auswählen welche Tabelle (Worksheet 1, 2, 3, usw.) mit den Daten gefüttert wird. Die Tabellen sind alle exakt gleich aufgebaut, es geht wirklich nur darum, ihm begrei…
-
Private Sub ComboBox_OV_Click() 'Variable zuordnen Dim Data As Integer If Maske.ComboBox_OV.ListIndex = 0 Then Data = Tabelle6 If Maske.ComboBox_OV.ListIndex = 1 Then Data = Tabelle15 If Maske.ComboBox_OV.ListIndex = 2 Then Data = Tabelle8 If Maske.ComboBox_OV.ListIndex = 3 Then Data = Tabelle11 If Maske.ComboBox_OV.ListIndex = 4 Then Data = Tabelle10 If Maske.ComboBox_OV.ListIndex = 5 Then Data = Tabelle14 If Maske.ComboBox_OV.ListIndex = 6 Then Data = Tabelle4 If Maske.ComboBox_OV.ListIndex = …
-
Okay ... nun klappt es soweit das sich die Maske zumindest wieder starten lässt. Wenn ich dann aber die Daten aus der Maske in die Tabelle eintragen lassen möchte, kommt die nächste Fehlermeldung. Fehler beim Kompilieren: Variable nicht definiert und es wird diese Zeile aus dem zweiten Teil gelb last = Worksheets(Data).Cells(Rows.Count, 2).End(xlUp).Row + 1 wenn ich hier nun das (Data) in ("Data") ändere gibt es einen SyntaxError Jedoch wenn ich die Tabelle direkt anspreche, ohne diese ComboBox,…
-
mmhh... meine Idee, dass nun so zu benennen, als würde ich es händisch eintragen, klappt auch nicht... Sieht dann jetzt so aus: Private Sub ComboBox_OV_Click() 'Variable zuordnen Dim Data As String If Maske.ComboBox_OV.ListIndex = 0 Then Data = "04 - Dörpen" If Maske.ComboBox_OV.ListIndex = 1 Then Data = "12 - Elbergen" If Maske.ComboBox_OV.ListIndex = 2 Then Data = "05 - Haren" If Maske.ComboBox_OV.ListIndex = 3 Then Data = "08 - Haselünne" If Maske.ComboBox_OV.ListIndex = 4 Then Data = "07 - H…
-
Lösung gefunden ... Der Inhalt des ersten Sub zum definieren der Variablen (Data) darf nicht im eigenständigen Sub stehen sonder muss mit in das Sub vom CommandButton_Anlegen und in alle Befehlszeilen mit Worksheets("Data") müssen die " gelöscht werden .... und schon klappt es wie es soll. Danke an petaod für die Hilfestellung Frage ist beantwortet!