Suchergebnisse

Hallo noch mal, für alle mitlesenden die evtl. Interesse an einem Lösungsansatz haben: In einem anderen Forum hatte User ELEX folgende sehr gut funktionierende Lösung: clever-excel-forum.de/Thread-M…en-kopieren-und-erweitern

Hallo nochmal, ich habe das Programm nun noch etwas automatisiert ... ...es wird direkt nach einer Datenquelle gefragt ...das Suchen und Ausgeben der relevanten Aggregate (in Sheet: relAgg) funktioniert ...dann öffnete sich eine Maske um weitere Informationen abzufragen und ggf. direkt ein PDF zu erzeugen und das Programm zu schließen oder die Übersicht in Excel zu öffnen ...im Hintergrund läuft ein Array, welches die für mich wichtigen Zellen ausliest, jedoch kann ich die Daten noch nicht verar…

Danke VaporiZed, das verlinkte Thema hatte ich tatsächlich auch schon selber gefunden, aber ich kann mir leider keinen Reim auf den dort diskutierten Code machen. Ich nutze ja auch kein UserForm sonder starte den komplette Ablauf mit einem einfachen Schalter, danach ist eigentlich alles Copy/Paste. Wenn das nicht so viele Datenfelder wären, hatte ich schon an die einfachen Excel-Befehle Sverweis, Wenn-Dann-Funktion, usw. aber damit mache wird die Datei instabil und unhandlich. Deshalb hatte ich …

ausgelagert aus Zeilen mit bestimmten Werten in ein anderes Tabellenblatt kopieren ~VaporiZed Hallo, da diese Anfrage von meinem Vorgänger schon deutlich länger ruht, aber Inhaltlich ähnlich ist (glaube ich), hoffe ich hier auf eure Hilfe. Ich möchte in einer Importierten Datenmenge nach feststehenden Begriffen (Mehrzahl) suchen. Wenn ich einen Treffer habe, sollen nur ein paar Zellen aus der jeweiligen Zeile kopiert werden und dann die neue Tabelle mit weiteren Daten aus einer Datenbank ergänzt…

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!

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…

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,…

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 = …

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…