Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
760to764
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
760to764
760to764
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zelldaten in Liste kopieren und fortsetzen

Zelldaten in Liste kopieren und fortsetzen
07.05.2006 00:32:18
Thomas
Hi Excelfreaks,
ich würde gern die Daten in den Feldern C12, D14 und E17 in die unten angegebene Zeile 27 mittels der Schaltfläche einfügen.
Ändere ich nun die o.g. 3 Zellen, so sollen dieses Daten in Zeile 28 unten kopiert werden. Da ist mein VB - Latei schon zu Ende. Wer könnte mir da helfen? Noch was: ich möchte nur die Werte der Zellen kopieren - nicht die Formatierung (also ohne gelbe Felder).
https://www.herber.de/bbs/user/33393.xls
Gruß, Thomas

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zelldaten in Liste kopieren und fortsetzen
07.05.2006 08:58:04
Josef
Hallo Thomas!
Probier mal diesen Code!
Sub Schaltfläche1_BeiKlick()
Dim lnglast As Long

lnglast = Cells(Rows.Count, 1).End(xlUp).Row + 1
If lnglast < 27 Then lnglast = 27
Cells(lnglast, 1) = Application.Max(Range("A:A")) + 1
Cells(lnglast, 1).NumberFormat = "#""."""
Cells(lnglast, 2) = Range("C12").Value
Cells(lnglast, 3) = Range("D14").Value
Cells(lnglast, 4) = Range("E17").Value

End Sub


'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Anzeige
AW: Zelldaten in Liste kopieren und fortsetzen
07.05.2006 19:49:07
Thomas
Hallo Sepp,
funktioniert Bestens, auch mit mehreren Zellen und Tabellenblättern!
Danke nochmals

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige