Thema Datum  Von Nutzer Rating
Antwort
Rot UserForm Eintrag per CommandButton in neue Spalte
 15.03.2017 14:46:19 Mondaique
NotSolved
15.03.2017 14:49:05 Mondaique
NotSolved

Ansicht des Beitrags:
Von:
Mondaique		 Datum:
15.03.2017 14:46:19		 Views:
975		 Rating:
     
Antwort:
  Ja
Thema:
UserForm Eintrag per CommandButton in neue Spalte
Hallo Leute. Ich bin absolut Neuling in VBA und hab mir einige Codes zusammengefrickelt und finde ich gerade im Learning-by-Doing Verfahren in VBA rein. Ich stehe aber derzeit vor einem Problem, dass ich einfach nicht gelöst kriege. Ich habe eine Tabelle mit Arbeitsblättern von "Januar" bis "Dezember". Darüber hinaus noch eine Menge Diagramm Blätter zur Auswertung, die sich auf die Arbeitsblätter "Januar" bis "Dezember" beziehen. Bei den einzelnen Arbeitsblättern der Monate handelt es sich um eine Art Matrix-Tabelle. Hier wurden jahrelang händisch per Tastatur "X"e gesetzt in die jeweiligen Zeilen. Dabei wird jeder neue Auftrag in eine Spalte eingetragen und so die Tabelle von oben nach unten abgearbeitet. Jeder neue Auftrag wurde dann immer in die nächste freie Spalte "geixt". Ganz rechts gibt es eine Funktion, die die "x" in den Zeilen zählt und als einfache Zahl darstellt. Darauf beziehen sich dann auch die Diagramm Blätter zur Auswertung. Jetzt wollte ich gern eine UserForm einrichten, in der per Kombinationsfeld die einzelnen Angaben komfortabel angeklickt werden und per Command Button die Eingaben in das Arbeitsblatt eingetragen werden. Zum Beispiel Kategorie "Fahrzeugart" enthält die geaddeten Items "PKW", "LKW" etc. Zuvor hat man jeweils bei "PKW" oder "LKW" ein Kreuz gemacht. Jetzt lässt sich diese Angabe per Dropdown Menü auswählen. Per If-Befehl habe ich dann den Eintrag "PKW" oder "LKW" in ein "X" setzen lassen, sodass die Matrix weiterhin gefüllt wird. Jetzt habe ich aber aktuell das Problem, das ich einfach den Code nicht finde, um automatisch im die nächste freie Spalte zu schreiben. Ich habe ein rechte recht lange Tabelle, weshalb ich gern von oben nach unten die Punkte abarbeiten möchte und dann von Auftrag zu Auftrag jeweils nach rechts wechseln will. Außerdem habe ich Sorge, dass meine ganzen Diagramme und Funktionen und Bezüge eine Umwandlung der Tabelle von horizontal zu vertikal nicht fehlerfrei und unkompliziert mitmachen würden :-) Könnt ihr mir da helfen? Derzeit sieht mein Code dazu wie folgt aus: Dim last as Integer last = Worksheets("Januar"). Cells(Rows.count, 1).End(xlUp).Row + 1 Und dann für z.b. dass Kombinationsfeld "Box1": Worksheets.("Januar").Cells(last, 1).Value = EingabeForm.Box1 So wird ja jeder Eintrag in eine neue Zeile geschrieben. Aber ich brauch es stattdessen in eine neue Spalte. Ich habe schon folgendes probiert: Dim last as Integer last = Worksheets("Januar").Cells(1, Columns.Count).End(xlToRight).Columns +1 Und dazu für "Box1" Worksheets("Januar").Cells(1, last).Value = EingabeForm.Box1 Aber entweder es steht dann gar nix mehr in der Tabelle oder es kommt "Laufzeitfehler 1004" "Anwendungs- oder Objektdefinierter Fehler" Ich bin echt dankbar für eure Hilfe

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot UserForm Eintrag per CommandButton in neue Spalte
 15.03.2017 14:46:19 Mondaique
NotSolved
15.03.2017 14:49:05 Mondaique
NotSolved