Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
840to844
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
840to844
840to844
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Eintrag in nächste freie Zeile

Eintrag in nächste freie Zeile
30.01.2007 15:14:07
Patrick
Hallo,
Kannst mir vielleicht jemand bei folgendem Problem helfen:
Ich möchte das der Bereich G29:K29 aus dem Arbeitsblatt Eingabe aus dem Workbook Test1.xls in die nächste leere Zeile in das Workbook Test2.xls in das Arbeitsblatt Tabelle1 eingefügt wird, wobei in der 1. Zelle (Spalte A) immer schon ein Eintrag vorhanden ist. Also G28:K29 nach Spalte B bis F nächste leere Zeile.
Vorab bereits tausend Dank.
Gruß
Patrick

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

Betreff
Datum
Anwender
Anzeige
AW: Eintrag in nächste freie Zeile
30.01.2007 17:22:46
fcs
Hallo Patrick,
hier ein Beispiel, Datei- und Tabellennamen ggf. Anpassen
Gruss
Franz

Sub Bereichuebertragen()
Dim wb1 As Workbook, wb2 As Workbook
Dim wks1 As Worksheet, wks2 As Worksheet
Set wb1 = Workbooks("Datei1.xls")
Set wb2 = Workbooks("Datei2.xls")
Set wks1 = wb1.Worksheets("Tabelle1")
Set wks2 = wb2.Worksheets("Tabelle1")
'Nächste freie Zeile in wks2 im Bereich Spalten B bis F ermitteln
For Spalte = 2 To 6
Zeile = Application.WorksheetFunction.Max(Zeile, wks2.Cells(wks2.Rows.Count, Spalte).End(xlUp).Row)
Next
Zeile = Zeile + 1
wks2.Cells(Zeile, 2).Range("A1:E2").Value = wks1.Range("G28:K29").Value
End Sub

Anzeige
AW: Eintrag in nächste freie Zeile
31.01.2007 09:18:29
Patrick
Hallo Franz,
vielen Dank funktioniert klasse. Danke !!
Gruß
Patrick

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige