Live-Forum - Die aktuellen Beiträge
Datum
Titel
10.05.2024 09:46:10
Zusätzliche Sicherheitsabfrage beim Schließen
10.05.2024 07:04:14
nicht löschbar
09.05.2024 19:15:00
speichern über Makro ändert bedingt formatierte Zellen
09.05.2024 15:49:16
OEE Verlust als Linie an OEE
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
424to428
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
424to428
424to428
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kopieren, aber nur wenn ausgefüllt

Kopieren, aber nur wenn ausgefüllt
11.05.2004 21: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
Anzeige
AW: Kopieren, aber nur wenn ausgefüllt
11.05.2004 23: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
Anzeige
AW: Kopieren, aber nur wenn ausgefüllt
12.05.2004 10: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

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige