Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
276to280
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
276to280
276to280
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

makierte Zeile in zweite Tabelle kopieren

makierte Zeile in zweite Tabelle kopieren
11.07.2003 14:49:22
Stephan_F
Hallo Excler,
habe ein kleines Problem aber im Archiv noch nicht das Richtige gefunden.
Wenn z.B. "A:4" in Tabelle1 markiert ist, soll die ganze Zeile 4 in die nächste freie Zeile der Tabelle2 durch Buttonklick kopiert werden. Es sollen also die Daten, die in Tabelle2 schon vorhanden sind, nicht überschrieben werden.
Wer kann mir helfen?

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

Betreff
Datum
Anwender
Anzeige
AW: makierte Zeile in zweite Tabelle kopieren
11.07.2003 19:46:25
PeterW
Hallo Stephan,
probier es mal so:

Sub kopieren()
Dim lgLetzte As Long
lgLetzte = Sheets("Tabelle2").Range("A65536").End(xlUp).Row
If IsEmpty(Sheets("Tabelle2").Cells(65536, 1)) Then
Rows(ActiveCell.Row).Copy Sheets("Tabelle2").Rows(lgLetzte + 1)
Application.CutCopyMode = False
Else
MsgBox "Tabelle ist voll, es sind keine weiteren Kopien möglich"
End If
End Sub

Gruß
Peter

AW: makierte Zeile in zweite Tabelle kopieren
12.07.2003 09:03:44
Stephan_F
Da danke ich auch recht schön,
und wünsche noch ein schönes WE
gruß aus thüringen
stephan

AW: makierte Zeile in zweite Tabelle kopieren
11.07.2003 14:56:41
Stephan_F
Ps.: Danke schon mal im Voraus. (War eben ein bißchen zu schnell).
Viele Grüße aus Thüringen

Anzeige
AW: makierte Zeile in zweite Tabelle kopieren
11.07.2003 19:33:27
Stephan_F
Habe eine Lösung gefunden:

Sub Schaltfläche1_BeiKlick()
Dim shTarget As Worksheet
Dim intRow As Integer
Set shTarget = Worksheets("Tabelle2")
intRow = shTarget.Cells(Rows.Count, 1).End(xlUp).Row + 1
Rows(ActiveCell.Row).Copy shTarget.Rows(intRow)
Application.CutCopyMode = False
shTarget.Columns.AutoFit
End Sub

Danke allen, die sich bemüht haben
grüße aus Thüringen
stephan

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige