Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
23.04.2024 17:00:22
Summe und Ausgabe
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
760to764
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
760to764
760to764
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

WorkSheet nut teilweise kopieren

WorkSheet nut teilweise kopieren
10.05.2006 07:13:49
Sebastian
Hallo Liebe Wissenden,
Ich habe einen Worksheet den ich kopieren will , wobei als Inhalt nur alles aus der ersten Zeile, sowie alles aus der ersten Spalte (-- sozusagen die Überschriften) kopiert werden sollen.
Bisher kopiert er mir den kompletten WorkSheet per Marko mit allen Einträgen aber ohne die Formatierungen.
Wie kann ich das anstellen,dass der WS nur an den gewollten Stellen kopiert wird, aber die Formatierungen (Spaltenbreite, bedingte Fromatierungen) mit übernommen werden?
Danke im Voraus.

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: WorkSheet nut teilweise kopieren
10.05.2006 08:18:49
UweD
Hallo
so...

Sub copy_spalte_Zeile1()
On Error GoTo Fehler
Dim LR&, LC%, TB1, TB2
Set TB1 = Sheets("Tabelle1")
Set TB2 = Sheets("Tabelle2")
LC = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Column 'Letzte Spalte
LR = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row 'Letzte Zeile
TB1.Cells.Copy TB2.Cells
Range(Cells(2, 2), Cells(LR, LC)).Clear
Fehler:
If Err.Number <> 0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description
End Sub

- copiert das ganze Blatt (hier Tabelle1 in Tabelle2)
- löscht dann den Zellinhalt außer Zeile1/Spalte1
Gruß UweD
(Rückmeldung wäre schön)
Anzeige
Nachtrag
10.05.2006 08:22:03
UweD
Hallo nochmal.
Fehlt noch was.. TB2.....

Sub copy_spalte_Zeile1()
On Error GoTo Fehler
Dim LR&, LC%, TB1, TB2
Set TB1 = Sheets("Tabelle1")
Set TB2 = Sheets("Tabelle2")
LC = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Column 'Letzte Spalte
LR = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row 'Letzte Zeile
TB1.Cells.Copy TB2.Cells
TB2.Range(Cells(2, 2), Cells(LR, LC)).Clear '****Soll von Blatte 2 löschen
Fehler:
If Err.Number <> 0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description
End Sub

Gruß UweD
(Rückmeldung wäre schön)
Anzeige
AW: Nachtrag
10.05.2006 09:44:33
Sebastian
Rückmeldung erfolgt später.
Testen erst heute nach Feierabend möglich :-)
Formatierungen gehen aber verloren
10.05.2006 15:24:39
Sebastian
Hallo,
hier die versprochene Rückmeldung.
Prinzipiell funktioniert es, aber leider gehen die Formatierung dabei verloren..
Kann man das noch irgendiwe herrichten?
AW: Formatierungen gehen aber verloren
10.05.2006 16:49:39
UweD
Hallo nochmal
bei mir bleiben die Formatierungen erhalten...
hier eine vorbereitete Musterdatei...
https://www.herber.de/bbs/user/33529.xls
Gruß UweD
(Rückmeldung wäre schön)

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige