Werte in nächste leere Zeile schreiben/kopieren/einfügen :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

[Excel 2002] Werte in nächste leere Zeile schreiben/kopieren/einfügen

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Autor

Nachricht

timi
User mit gefährlichem Halbwissen

Anmeldedatum: 12.03.2008
Beiträge: 105
Wohnort: 67742 Lauterecken

Verfasst am: 30.05.2008, 14:38

Hallo zusammen,

habe wieder mal ein Problem.
Folgende Formel dient dazu, Werte/Angaben aus ComboBox(en) einer UserForm in gewisse Zellen eines Tabellenblatts zu übertragen.
Beim erneuten Aufruf dieser Anweisung soll jedoch die Zeile ( die Zellen ) nicht überschrieben werden, sondern die nächste Zeile ( Zelle )aufgesucht werden, usw.
( untereinander schreiben ).
Als Anhaltspunkt könnte man F2 benutzen. Diese Zelle wird immer gefüllt.
Quasi, wenn beim Übertragen ins Tabellenblatt in F2 bzw. später F3,F4,F5,usw. ) etwas steht, den ganzen Vorgang in die nächste Zeile kopieren.
Ihr seid in dieser Hinsicht fitter als ich, und bekommt diese Anweisung bestimmt in null-komma-nix hin!

Private Sub CommandButton5_Click()
'z ist Wert aus ComboBox1 und zugleich der Tabellenblattname
z = ComboBox1.Value
'wenn z größer null-komma-nix, dann......
If z > "" Then
'Wert aus ComboBox(en) in jeweilige Zelle(n) des Tabellenblatts (z) eintragen!
Worksheets(z).Range("F2").Value = ComboBox13.Value
Worksheets(z).Range("G2").Value = ComboBox14.Value
Worksheets(z).Range("H2").Value = ComboBox15.Value
Worksheets(z).Range("J2").Value = ComboBox17.Value
Worksheets(z).Range("K2").Value = ComboBox18.Value
Worksheets(z).Range("L2").Value = ComboBox19.Value
Worksheets(z).Range("M2").Value = ComboBox20.Value
Worksheets(z).Range("N2").Value = ComboBox21.Value
Worksheets(z).Range("O2").Value = ComboBox22.Value
Worksheets(z).Range("P2").Value = ComboBox23.Value
Worksheets(z).Range("Q2").Value = ComboBox24.Value
Worksheets(z).Range("R2").Value = ComboBox25.Value
Worksheets(z).Range("S2").Value = ComboBox26.Value
Worksheets(z).Range("T2").Value = ComboBox27.Value
Worksheets(z).Range("U2").Value = ComboBox28.Value
Worksheets(z).Range("V2").Value = ComboBox29.Value
'sonst
Else
'UserForm:"HinweisKeineAuswahlVorgenommen2" anzeigen
HinweisKeineAuswahlVorgenommen2.Show
'Hinweis: geöffnete UserForm beendet sich autom. nach 4 Sekunden
End If
End Sub

Gruß Timi

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5564

Verfasst am: 30.05.2008, 14:55

Hallo!

Die letzte beschriebene Zeile aus Spalte F findest du z.B. so:

x = Worksheets(z).Range("F65536").End(xlUp).Row

Die Werte werden dann so eingetragen:

Worksheets(z).Cells(x + 1, 6) = ComboBox13.Value
Worksheets(z).Cells(x + 1, 7) = ComboBox14.Value
Worksheets(z).Cells(x + 1, 8) = ComboBox15.Value
usw.

_________________

Viele Grüße vom Schatzi
------------------------
Dies ist meine Signatur und sie trägt eigentlich nichts zur Lösung deines Problems bei. Sollte sie es dennoch tun, dann bist du definitiv im falschen Forum...

Ein Feedback zum ursprünglichen Problem wäre trotzdem nett!
Windows XP, Office2000, Office2007

timi
User mit gefährlichem Halbwissen

Anmeldedatum: 12.03.2008
Beiträge: 105
Wohnort: 67742 Lauterecken

Verfasst am: 30.05.2008, 16:19

Hallo Schatzi

klappt, wie geschmiert!

Vielen Dank!

Gruß Timi

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	[Excel 2003] Formel: Leere Zelle als ...	Sniper	Microsoft Excel Hilfe	2	06.09.2008, 13:23
	Makro gesucht Zeile kopieren und in j...	philipp.geyer	Microsoft Excel Hilfe	4	05.09.2008, 15:59
	CommandButton in Zeile erzeugen	Paulus2408	Microsoft Excel Hilfe	2	04.09.2008, 16:41
	Excel Jeanie einfügen	wilfried07	Microsoft Excel Hilfe	2	04.09.2008, 16:13
	In Säulendiagramm Linien einfügen	jdbug1	Microsoft Excel Hilfe	4	03.09.2008, 17:43

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de