PDA

Vollständige Version anzeigen : Zeilen mit Combobox definieren


Domefromtheair
03.09.2017, 12:25
Hallo Zusammen :)

Ich bin blutiger Anfänger was VBA angeht, jedoch habe ich viel Spaß daran und habe nun ein neues Projekt begonnen, wo ich leider schon sehr früh nicht mehr weiter komme :/

Und zwar geht es darum, das ich eine Tabelle habe, welche genau für einen Monat gültig ist. Das bedeutet, das ich in Spalte A zB von A7 - A37 die Zahlen von 1 bis 31 stehen habe. (Dies repräsentiert das Datum bzw den genauen Tag im Monat) Für jeden Tag gibt es nun noch bestimmte Ereignisse zb von WO nach WO man gefahren ist und wie lange man gebraucht hat.(Diese findet man dann in der dazugehörigen Zeile)

Nun habe ich mir eine UserForm erstellt, wo ich alles eintragen kann und diese überträgt mir das dann in meine Tabelle. Das funktioniert auch soweit, jedoch ist mein Problem, dass ich bei meinen vorherigen Projekten immer mit 'Nächste freie Zeile ausfindig machen gearbeitet habe'

Nun würde ich aber gerne mit einer ComboBox mir eine Auswahl geben lassen (1-31) für die Tage, sodass ich über diese den Tag auswählen kann, um welchen es sich handelt und wenn ich diesen dann ausgewählt habe meine UserForm so ausfüllen (also Strecke, Zeit, etc..), dass wenn ich dieses speichere, es genau in die Zeile des über die Combobox ausgewählten Tages eingefügt wird.


Ich stehe echt ein bissel auf dem Schlauch und würde mich sehr über helfende Antwort freuen.

Und bitte verzeit wenn ich noch nicht ganz mit der Fachsprache klar komme, wie gesagt blutiger Anfänger :)

Liebe Grüße und vielen Dank schonmal

Dominik

Hajo_Zi
03.09.2017, 12:44
Hallo Dominik,

nur wenige schauen auf Deinen Rechner und sehen die Datei.<br>
Ich möchte gerne den Fehler im Original sehen.<br><br>
Ich baue keine Datei nach. Die Zeit hat schon jemand investiert.<br><br>
Ein Nachbau sieht meist anders aus als das Original. <B>Darum sollte das Original verlinkt werden.</b><br><br>
Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten <a href="http://www.ms-office-forum.de/forum/showthread.php?t=322895">anonymisieren bzw. pseudonymisieren.</a><br>

<img src="http://Hajo-Excel.de/images/grusz1.gif" align="middle" height="40" alt="Grußformel"><a href="http://Hajo-Excel.de/index.htm"><img border="0" src="http://Hajo-Excel.de/images/logo_hajo3.gif" align="middle" height="40" alt="Homepage"></a>

Beverly
03.09.2017, 12:49
Hi Dominik,

weise der ComboBox als RowSource die Zellen A7:A37 zu, sodass dort die Inhalte aus diesen Zellen auswählbar sind.
Beim Übertragen von Daten aus dem Userform ins Tabellenblatt kannst du dann den ListIndex der ComboBox verwenden, um auf die betreffende Zeile zuzugreifen. Da der ListIndex bei 0 beginnt und deine Daten ab Zeile 7 beginnen, musst du zum ListIndex noch 7 hinzuzählen um die richtige Zeile zu haben.

<hr width="20%" align="left"><img src="http://excel-inn.de/images/grusz.gif" height=35" align="left" alt="Grußformel"><a href="http://excel-inn.de/"><img border="0" src="http://excel-inn.de/images/logo1.gif" height=35" align="middle" alt="Beverly's Excel - Inn"></a>

Domefromtheair
03.09.2017, 12:53
Hi Karin,

genau das habe ich schon öfters gelesen und ich denke dass das auch mein Problem lösen kann, nur leider habe ich noch keine Ahnung wie das implementieren kann also von den richtigen Befehlen her :/

Danke für deine Antwort.

Ich versuche mal schnell ein Beispiel zu erstellen.

Dominik

Beverly
03.09.2017, 13:01
Hi Dominik,

die betreffende Zeile kannst du (in deinem konkreten Beispeil) ganz einfach so ermitteln:

Dim lngZeile As Long
lngZeile = Me.ComboBox1.ListIndex + 7



<hr width="20%" align="left"><img src="http://excel-inn.de/images/grusz.gif" height=35" align="left" alt="Grußformel"><a href="http://excel-inn.de/"><img border="0" src="http://excel-inn.de/images/logo1.gif" height=35" align="middle" alt="Beverly's Excel - Inn"></a>

Domefromtheair
03.09.2017, 13:09
So ich habe mal schnell versucht einfaches Beispiel zu erstellen.

Mir geht es jetzt darum, das Ich mit der ComboBox den Tag auswählen kann und dann direkt in die beiden Felder Strecke und Dauer die Daten eintragen kann und wenn ich dann auf speichern drücke, diese dann in Zellen des entsprechen Tages eingesetzt werden.

Vielen Dank euch allen schonmal für eure schnelle Hilfe :D

Domefromtheair
03.09.2017, 13:32
Nochmal vielen Dank :)

Hab mein Problem Dank Karin und mal 5 Minuten drüber nachdenken lösen können :)

Vielen lieben Dank für eure hilfe und einen schönen Rest Sonntag euch :)

Liebe Grüße

Dominik