Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: erste leere Zeile im Bereich

erste leere Zeile im Bereich
17.06.2005 12:01:22
GeorgK
Hallo,
was muss ich wie ändern, wenn die Daten in die jeweils nächste leere Zeile des Bereichs übernommen werden sollen. Die Daten werden in das in B1 stehende Tabellenblatt übernommen.

Sub uebertragen()
Dim s As String
Application.ScreenUpdating = False
s = Sheets("Tabelle1").Range("B1").Value
Sheets("Tabelle1").Range("A2:B150").Copy
Sheets(s).Select
Range("A4").Select
ActiveSheet.Paste
Columns("B:B").ColumnWidth = 41
Range("A2").Select
Sheets("Tabelle").Select
End Sub

Vielen Dank für die Hilfe
Georg
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: erste leere Zeile im Bereich
17.06.2005 12:19:28
Uduuh
Hallo,
ohne select:

Sub uebertragen()
Dim s As String
Application.ScreenUpdating = False
s = Sheets("Tabelle1").Range("B1").Value
Sheets("Tabelle1").Range("A2:B150").Copy _
sheets(s).Range("A65536").end(xlup).offset(1,0)
sheets(s).Columns("B:B").ColumnWidth = 41
End Sub

Gruß aus’m Pott
Udo

Anzeige
AW: erste leere Zeile im Bereich
17.06.2005 12:30:48
GeorgK
Hallo Udo,
die Grüße in den Pott zurück.
Vielen Dank. Klappt wunderbar.
Grüße und schönes Wochenende
Georg
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige