Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
272to276
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
272to276
272to276
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zellen kopieren ohne zu überschreiben

Zellen kopieren ohne zu überschreiben
23.06.2003 21:16:36
Daniela
Hallo !!!

Hab mal wieder eine Frage an die Profis unter euch.

Ich möchte über eine Schaltfläche die Zelle D6 vom Tabellenblatt1 nach D38 im Tabellenblatt5 kopieren, dabei soll geprüft werden ob da schon Daten stehen, wennja soll automatisch mit D39 fortgesetzt werden, wenn die auch schon belegt ist mit D40 usw.
Ist so etwas möglich ?

Bin dankbar für jede Hilfe.

Mfg

Daniela


4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Zellen kopieren ohne zu überschreiben
23.06.2003 21:33:28
Willie

Ich hoffe das hilft!

Sub übernehmen()
x = 38
Do
x = x + 1
Loop Until Sheets("Tabelle5").Cells(x, 4) = ""
MsgBox x
var1 = Sheets("Tabelle1").Cells(6, 4)
Sheets("Tabelle5").Cells(x, 4) = var1
End Sub

Gruß

Willie

Re: Zellen kopieren ohne zu überschreiben
23.06.2003 21:38:08
Nepumuk

Hallo Daniela,
klar, so:

Gruß
Nepumuk

Re: Zellen kopieren ohne zu überschreiben
23.06.2003 21:46:53
PeterW

Hallo Daniela,

und noch ne Alternative für den Fall, dass in der Zieltabelle in D38 noch nichts steht:

Gruß
Peter

Re: Zellen kopieren ohne zu überschreiben
23.06.2003 22:07:47
Daniela

Danke, wart mir eine große Hilfe

Mfg
Dani

Anzeige

308 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige