Kopieren, aber nur wenn ausgefüllt

Forumthread: Kopieren, aber nur wenn ausgefüllt
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Kopieren, aber nur wenn ausgefüllt

11.05.2004 23:14:20

martin

Hallo,
hab nochn Problem. Wäre praktisch und sehr arbeitserleichternd, wenn ich eine Tabelle (also nur den ausgefüllten Bereich)in ein anderes Blatt kopieren könnte und diesen Bereich dann auch direkt ins richtige Format rücken könnte (Also Rahmen drum, der Rest würde ja sowieso aus der anderen Datei übernommen werden).
Weiß einer ne Lösung? Is bestimmt einfacher als ich denke.
Vielen Dank und liebe GRüße,
Martin

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Kopieren, aber nur wenn ausgefüllt

12.05.2004 01:50:34

K.Rola
AW: Kopieren, aber nur wenn ausgefüllt

12.05.2004 12:42:48

martin

AW: Kopieren, aber nur wenn ausgefüllt

12.05.2004 01:50:34

K.Rola

Hallo,
die Blattnamen anpassen:
Option Explicit


Sub Kopiere_UsedRange()
Dim arrC() As Single, arrR() As Single, x As Long, z As Long, s As Integer
Dim Rc As Long, Cc As Integer
Rc = Sheets("Tabelle1").UsedRange.Rows.Count
Cc = Sheets("Tabelle1").UsedRange.Columns.Count
ReDim arrR(Rc)
ReDim arrC(Cc)
For x = 1 To Rc
arrR(x) = Sheets("Tabelle1").UsedRange.Rows(x).RowHeight
Next
For x = 1 To Cc
arrC(x) = Sheets("Tabelle1").UsedRange.Columns(x).ColumnWidth
Next
Sheets("Tabelle1").UsedRange.Copy Sheets("Tabelle2").[a1]
For x = 1 To Rc
Sheets("Tabelle2").Rows(x).RowHeight = arrR(x)
Next
For x = 1 To Cc
Sheets("Tabelle2").Columns(x).ColumnWidth = arrC(x)
Next
End Sub

Gruß K.Rola

AW: Kopieren, aber nur wenn ausgefüllt

12.05.2004 12:42:48

martin

Hallo,
klappt soweit ganz gut, jetzzt möchte ich aber nicht alle Spalten kopieren, sondern nur die Spalten A bis I und K bis S. Wie muss es da lauten?
Danke,
Martin

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