Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
356to360
356to360
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Format einer Zeile kopieren (VBA)

Forumthread: Format einer Zeile kopieren (VBA)

Format einer Zeile kopieren (VBA)
29.12.2003 11:59:06
Ralf
Hallo,

mit folgender Funktion hole ich mir die Daten einer Zeile aus Tab2 in Tab1:

Sheets("Tabelle1").Rows(1).Value = Sheets("Tabelle2").Rows(1).Value

Kann ich auch das Format dieser Zeile übertragen???

Danke für Hilfe
Ralf

@Hajo_Zi: Das mit dem Rundumschlag werde ich zukünftig beachten!
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Format einer Zeile kopieren (VBA)
29.12.2003 12:01:27
Hajo_Zi
Hallo Ralf


Sub Werte_Format()
'   Formeln ersetzen durch Werte mit Formate
Workbooks("Datei1.xls").Worksheets("Tabelle1").Range(Sheets("Tabelle1").UsedRange.Address).Copy
With Workbooks("Datei2.xls").Worksheets("Tabelle1").Range("A1")
.PasteSpecial Paste:=xlValues           ' Werte
.PasteSpecial Paste:=xlFormats      ' Formate
End With
Application.CutCopyMode = False
End Sub


Bitte keine Mail, Probleme sollten im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro


Anzeige
;
Anzeige

Infobox / Tutorial

Zeilenformat in Excel übertragen: So geht's mit VBA

Schritt-für-Schritt-Anleitung

Um das Format einer Zeile in Excel von einem Arbeitsblatt auf ein anderes zu übertragen, kannst Du die folgende VBA-Makro-Funktion verwenden. Diese Methode ist besonders nützlich, wenn Du sowohl die Werte als auch die Formate kopieren möchtest.

  1. Öffne den Visual Basic-Editor (Alt + F11).

  2. Füge ein neues Modul hinzu (Rechtsklick auf „VBAProject“ > Einfügen > Modul).

  3. Kopiere den folgenden Code in das Modul:

    Sub Werte_Format()
   ' Werte und Formate von Tabelle2 nach Tabelle1 kopieren
   Workbooks("Datei1.xls").Worksheets("Tabelle1").Range(Sheets("Tabelle1").UsedRange.Address).Copy
   With Workbooks("Datei2.xls").Worksheets("Tabelle1").Range("A1")
       .PasteSpecial Paste:=xlValues           ' Werte
       .PasteSpecial Paste:=xlFormats          ' Formate
   End With
   Application.CutCopyMode = False
End Sub

  4. Passe den Code an: Ersetze „Datei1.xls“ und „Datei2.xls“ durch die tatsächlichen Namen Deiner Arbeitsmappen.

  5. Starte das Makro: Drücke F5 oder gehe auf „Run“ > „Run Sub/UserForm“.

Häufige Fehler und Lösungen

  • Fehler: „Laufzeitfehler 9: Index außerhalb des gültigen Bereichs“

    • Lösung: Überprüfe die Namen der Arbeitsblätter und Dateinamen auf Schreibfehler.

  • Fehler: „Der Arbeitsbereich ist zu groß“

    • Lösung: Stelle sicher, dass die zu kopierenden Daten in einem vernünftigen Bereich liegen. Reduziere die Auswahl, wenn nötig.

Alternative Methoden

Falls Du keine VBA-Makros verwenden möchtest, gibt es auch andere Methoden, um das Format zu übertragen:

  1. Manuelles Kopieren:

    • Markiere die Zeile in Tabelle2, klicke mit der rechten Maustaste und wähle „Kopieren“.
    • Gehe zu Tabelle1, klicke mit der rechten Maustaste auf die Zielzeile und wähle „Inhalte einfügen“ > „Formate“.

  2. Shortcut für das Format übertragen:

    • Kopiere die Zeile (Strg + C).
    • Wähle die Zielzeile aus und drücke Alt + E, S, T (das ist die Tastenkombination für „Inhalte einfügen“ > „Formate“).

Praktische Beispiele

  • Beispiel 1: Wenn Du das Format der ersten Zeile in Tabelle2 auf Tabelle1 übertragen möchtest, verwende den oben genannten VBA-Code und passe die Zeilen entsprechend an.

  • Beispiel 2: Für eine schnelle Übertragung kannst Du die Excel Tastenkombination für Format übertragen verwenden: Kopiere die Zeile, wähle die Zielzelle aus und nutze die Tastenkombination Strg + Alt + V und dann T.

Tipps für Profis

  • Nutze Tastenkombinationen: Die Verwendung von Shortcuts wie „Alt + E, S, T“ kann Deine Effizienz beim Arbeiten mit Excel erheblich steigern.
  • Speichere Deine Makros: Wenn Du häufig das gleiche Format überträgst, speichere die Makros in Deiner Personal Macro Workbook, um sie jederzeit griffbereit zu haben.
  • Experimentiere mit Conditional Formatting: Wenn Du das Format regelmäßig ändern musst, könnte bedingte Formatierung eine flexible Lösung sein.

FAQ: Häufige Fragen

1. Kann ich das Format einer ganzen Tabelle übertragen? Ja, Du kannst das gesamte Worksheet kopieren und die gleichen PasteSpecial-Methoden verwenden, um Werte und Formate zu übertragen.

2. Funktioniert dies auch in neueren Excel-Versionen? Ja, die beschriebenen Methoden funktionieren in allen gängigen Excel-Versionen, einschließlich Excel 2016 und neuer.

Beliebteste Forumthreads (12 Monate)

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