Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 13:18:36
Übersicht von Excel Konstanten
16.10.2025 11:48:44
Makro von Excel in Word aufrufen
16.10.2025 11:16:26
SUMMEWENN erweitern
16.10.2025 09:40:53
Mehrere Konferenzen ohne Personenüberschneidung terminieren
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
864to868
864to868
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Formate aus darüberliegender Zeile übernehmen

Forumthread: VBA Formate aus darüberliegender Zeile übernehmen

VBA Formate aus darüberliegender Zeile übernehmen
24.04.2007 19:30:06
Peter
Hallöchen noch mal,
ich habe vorhin mein 2.Problem vergessen.
Ich möchte das nach dem man eine neue Zeile am Ende angefügt hat die Formate aus der darüberliegenden Zeile übernommen werden. Mein Versuch funktioniert nicht. Wie muß es richtig ausehen?
(Der erste Teil des Codes kopiert in den Spalten in den Formeln stehen die Formeln und alles andere aus der über der aktiven Zeile liegenden Zeile in die nächste. Das soll auch so bleiben. Zusätzlich sollen wie schon beschrieben die Formate in jeder Spalte kopiert werden.)
Teil des Codes:
a = Cells(65536, 1).End(xlUp).Row - ActiveCell.Row + 1
For Each cell In Rows(ActiveCell.Row - 1).SpecialCells(xlCellTypeFormulas, 23)
cell.Copy Destination:=cell.Offset(1, 0).Resize(a, 1)
'For Each cell In Rows(ActiveCell.Row - 1) '.SpecialCells(xlCellTypeFormulas, 23)
'cell.AutoFill Destination:=cell.Offset(1, 0), Type:=xlFillFormats
Next
hier die ganze Datei: https://www.herber.de/bbs/user/41980.xls
Danke im Voraus
Grüße aus Berlin

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: VBA Formate aus darüberliegender Zeile übernehmen
25.04.2007 02:54:29
Daniel
Hallo
wo befindet sich der Code in deinem Projekt,
bei welcher aktion wird der Code aktiv?
ich kann vielleicht ein bisschen VBA, aber nicht hellsehen.
Gruß, Daniel

AW: VBA Formate aus darüberliegender Zeile übernehmen
25.04.2007 03:06:31
Daniel
Hallo
wo befindet sich der Code in deinem Projekt,
bei welcher aktion wird der Code aktiv?
ich kann vielleicht ein bisschen VBA, aber nicht hellsehen.
Außderdem fehlt in deinem Codeschnipsel ein (auskommentiertes) Next
Formate kann man auch mit:
Rows(x).copy
Rows(x+1).Pastespecial xlpasteformats
kopieren.
bei Formaten kannst du ja problemlos die ganze Zeile nehmen und musst nicht wie bei den Formeln die Zellen einzeln durchturnen.
du kannst aber auch die komplette Zeile von oben drüber kopieren und dann die Fixen Werte mit den Werten aus der Eingabebox überschreiben.
Dann hast du beide For-Next-Schleifen gespart.
Gruß, Daniel

Anzeige
AW: VBA Formate aus darüberliegender Zeile übernehmen
25.04.2007 21:03:22
Peter
Hallo Daniel,
der Code befindet sich in Formulare Userform "frmEingabe_neue_Zahlung".
Auf meinem Tabellenblatt habe ich ein Commandbutton der folgendes Makro startet (makro befindet sich in Tabelle2 Cashflow):

Private Sub neue_Zahlung_Click()
SpeedUp (True)
If MsgBox("Wollen Sie eine neue Zahlung einfügen ?", vbOKCancel + _
vbQuestion, "Achtung!") = 1 Then
frmEingabe_neue_Zahlung.Show
End If
SpeedUp (False)
End Sub


Nach "OK" zeigt sich die Userform "frmEingabe_neue_Zahlung".
Dort kann man diverse Einträge machen, die dann nach dem man den Commandbutton "cmdOK" angeklickt hat in bestimmte Spalte in die erste leere Zeile am Ende der Tabelle eingetragen werden.
Da sich die Tabelle dann um eine Zeile verlängert hat müssen Rahmen etc. in die neue Zeile übernommen werden.
Danach wird, je nach dem welches neue Datum in Spalte A in der neue Zeile steht die Tabelle aufsteigend sortiert.
Wenn ich den ganzen Inhalt (Formeln, Formate, Werte usw.) kopieren würde, werden die über die Userform neu eingetragenen Werte überschrieben. Den Code für das kopieren nur der Formeln brauche ich deswegen. Meine VBA-Kenntnisse sind nicht ausreichend um das Problem mit den Formaten zu lösen.
Code der Userform


Private Sub cmdOK_Click()
Dim cell As Range
Dim a As Long
Dim lbMsg As Byte
If Not IsDate(txtDatum.Text) = True Then
lbMsg = MsgBox("Geben Sie ein gültiges Datum ein", vbExclamation, "falsche Eingabe") _
txtDatum.Text = ""
txtDatum.SetFocus
cmdOK.Enabled = False
Exit Sub
End If
If Not IsDate(txtfaellig_zum.Text) = True Then
lbMsg = MsgBox("Geben Sie ein gültiges Datum ein", vbExclamation, "falsche Eingabe") _
txtfaellig_zum.Text = ""
txtfaellig_zum.SetFocus
cmdOK.Enabled = False
Exit Sub
End If
If cboAusgang_Eingang_Gesellschaft_Konto.Text = "Ausgang" Then
If Val(txtBetrag_Gesellschaft_Konto.Text) > 0 Then
lbMsg = MsgBox("Geben Sie einen negativen Wert ein", vbExclamation, " _
falsche Eingabe")
txtBetrag_Gesellschaft_Konto.Text = ""
txtBetrag_Gesellschaft_Konto.SetFocus
cmdOK.Enabled = False
Exit Sub
End If
If Val(txtBetrag_MwSt.Text)  0 Then
lbMsg = MsgBox("Geben Sie einen negativen Wert oder 0 ein", vbExclamation, " _
falsche Eingabe")
txtBetrag_MwSt.Text = ""
txtBetrag_MwSt.SetFocus
cmdOK.Enabled = False
Exit Sub
End If
End If
Range("A:A").Find("", after:=[A6]).Activate
ActiveCell.Value = CDate(Me.txtDatum)
ActiveCell.Offset(0, 1).Value = CDate(Me.txtfaellig_zum)
ActiveCell.Offset(0, 2).Value = Me.cboArt
ActiveCell.Offset(0, 3).Value = Me.txtGegenseite
ActiveCell.Offset(0, 4).Value = Me.txtZahlungsgrund
If Me.cboGesellschaft_Konto = "DA/Allgemeines Lewa" And Me. _
cboAusgang_Eingang_Gesellschaft_Konto = "Ausgang" Then
ActiveCell.Offset(0, 5).Value = CDec(Me.txtBetrag_Gesellschaft_Konto)
ActiveCell.Offset(0, 10).Value = CDec(Me.txtBetrag_MwSt)
End If
If Me.cboGesellschaft_Konto = "DA/Allgemeines Lewa" And Me. _
cboAusgang_Eingang_Gesellschaft_Konto = "Eingang" Then
ActiveCell.Offset(0, 6).Value = CDec(Me.txtBetrag_Gesellschaft_Konto)
ActiveCell.Offset(0, 9).Value = CDec(Me.txtBetrag_MwSt)
End If
If Me.cboGesellschaft_Konto = "DA/Allgemeines Euro" And Me. _
cboAusgang_Eingang_Gesellschaft_Konto = "Ausgang" Then
ActiveCell.Offset(0, 13).Value = CDec(Me.txtBetrag_Gesellschaft_Konto)
ActiveCell.Offset(0, 10).Value = CDec(Me.txtBetrag_MwSt)
End If
If Me.cboGesellschaft_Konto = "DA/Allgemeines Euro" And Me. _
cboAusgang_Eingang_Gesellschaft_Konto = "Eingang" Then
ActiveCell.Offset(0, 14).Value = CDec(Me.txtBetrag_Gesellschaft_Konto)
ActiveCell.Offset(0, 9).Value = CDec(Me.txtBetrag_MwSt)
End If
If Me.cboGesellschaft_Konto = "DA/Kontokorrent Lewa" And Me. _
cboAusgang_Eingang_Gesellschaft_Konto = "Ausgang" Then
ActiveCell.Offset(0, 17).Value = CDec(Me.txtBetrag_Gesellschaft_Konto)
ActiveCell.Offset(0, 10).Value = CDec(Me.txtBetrag_MwSt)
End If
If Me.cboGesellschaft_Konto = "DA/Kontokorrent Lewa" And Me. _
cboAusgang_Eingang_Gesellschaft_Konto = "Eingang" Then
ActiveCell.Offset(0, 18).Value = CDec(Me.txtBetrag_Gesellschaft_Konto)
ActiveCell.Offset(0, 9).Value = CDec(Me.txtBetrag_MwSt)
End If
If Me.cboGesellschaft_Konto = "DA/Kontokorrent Euro" And Me. _
cboAusgang_Eingang_Gesellschaft_Konto = "Ausgang" Then
ActiveCell.Offset(0, 21).Value = CDec(Me.txtBetrag_Gesellschaft_Konto)
ActiveCell.Offset(0, 10).Value = CDec(Me.txtBetrag_MwSt)
End If
If Me.cboGesellschaft_Konto = "DA/Kontokorrent Euro" And Me. _
cboAusgang_Eingang_Gesellschaft_Konto = "Eingang" Then
ActiveCell.Offset(0, 22).Value = CDec(Me.txtBetrag_Gesellschaft_Konto)
ActiveCell.Offset(0, 9).Value = CDec(Me.txtBetrag_MwSt)
End If
If Me.cboGesellschaft_Konto = "DA/Treuhand Lewa" And Me. _
cboAusgang_Eingang_Gesellschaft_Konto = "Ausgang" Then
ActiveCell.Offset(0, 25).Value = CDec(Me.txtBetrag_Gesellschaft_Konto)
ActiveCell.Offset(0, 10).Value = CDec(Me.txtBetrag_MwSt)
End If
If Me.cboGesellschaft_Konto = "DA/Treuhand Lewa" And Me. _
cboAusgang_Eingang_Gesellschaft_Konto = "Eingang" Then
ActiveCell.Offset(0, 26).Value = CDec(Me.txtBetrag_Gesellschaft_Konto)
ActiveCell.Offset(0, 9).Value = CDec(Me.txtBetrag_MwSt)
End If
If Me.cboGesellschaft_Konto = "DA/Treuhand Euro" And Me. _
cboAusgang_Eingang_Gesellschaft_Konto = "Ausgang" Then
ActiveCell.Offset(0, 29).Value = CDec(Me.txtBetrag_Gesellschaft_Konto)
ActiveCell.Offset(0, 10).Value = CDec(Me.txtBetrag_MwSt)
End If
If Me.cboGesellschaft_Konto = "DA/Treuhand Euro" And Me. _
cboAusgang_Eingang_Gesellschaft_Konto = "Eingang" Then
ActiveCell.Offset(0, 30).Value = CDec(Me.txtBetrag_Gesellschaft_Konto)
ActiveCell.Offset(0, 9).Value = CDec(Me.txtBetrag_MwSt)
End If
If Me.cboGesellschaft_Konto = "AS/Allgemeines Lewa" And Me. _
cboAusgang_Eingang_Gesellschaft_Konto = "Ausgang" Then
ActiveCell.Offset(0, 33).Value = CDec(Me.txtBetrag_Gesellschaft_Konto)
End If
If Me.cboGesellschaft_Konto = "AS/Allgemeines Lewa" And Me. _
cboAusgang_Eingang_Gesellschaft_Konto = "Eingang" Then
ActiveCell.Offset(0, 34).Value = CDec(Me.txtBetrag_Gesellschaft_Konto)
End If
If Me.cboGesellschaft_Konto = "LB/Allgemeines Lewa" And Me. _
cboAusgang_Eingang_Gesellschaft_Konto = "Ausgang" Then
ActiveCell.Offset(0, 37).Value = CDec(Me.txtBetrag_Gesellschaft_Konto)
ActiveCell.Offset(0, 42).Value = CDec(Me.txtBetrag_MwSt)
End If
If Me.cboGesellschaft_Konto = "LB/Allgemeines Lewa" And Me. _
cboAusgang_Eingang_Gesellschaft_Konto = "Eingang" Then
ActiveCell.Offset(0, 38).Value = CDec(Me.txtBetrag_Gesellschaft_Konto)
ActiveCell.Offset(0, 41).Value = CDec(Me.txtBetrag_MwSt)
End If
If Me.cboGesellschaft_Konto = "LB/Allgemeines Euro" And Me. _
cboAusgang_Eingang_Gesellschaft_Konto = "Ausgang" Then
ActiveCell.Offset(0, 45).Value = CDec(Me.txtBetrag_Gesellschaft_Konto)
ActiveCell.Offset(0, 42).Value = CDec(Me.txtBetrag_MwSt)
End If
If Me.cboGesellschaft_Konto = "LB/Allgemeines Euro" And Me. _
cboAusgang_Eingang_Gesellschaft_Konto = "Eingang" Then
ActiveCell.Offset(0, 46).Value = CDec(Me.txtBetrag_Gesellschaft_Konto)
ActiveCell.Offset(0, 41).Value = CDec(Me.txtBetrag_MwSt)
End If
If Me.cboGesellschaft_Konto = "LHB/Allgemeines Lewa" And Me. _
cboAusgang_Eingang_Gesellschaft_Konto = "Ausgang" Then
ActiveCell.Offset(0, 49).Value = CDec(Me.txtBetrag_Gesellschaft_Konto)
ActiveCell.Offset(0, 54).Value = CDec(Me.txtBetrag_MwSt)
End If
If Me.cboGesellschaft_Konto = "LHB/Allgemeines Lewa" And Me. _
cboAusgang_Eingang_Gesellschaft_Konto = "Eingang" Then
ActiveCell.Offset(0, 50).Value = CDec(Me.txtBetrag_Gesellschaft_Konto)
ActiveCell.Offset(0, 53).Value = CDec(Me.txtBetrag_MwSt)
End If
If Me.cboGesellschaft_Konto = "LHB/Allgemeines Euro" And Me. _
cboAusgang_Eingang_Gesellschaft_Konto = "Ausgang" Then
ActiveCell.Offset(0, 57).Value = CDec(Me.txtBetrag_Gesellschaft_Konto)
ActiveCell.Offset(0, 54).Value = CDec(Me.txtBetrag_MwSt)
End If
If Me.cboGesellschaft_Konto = "LHB/Allgemeines Euro" And Me. _
cboAusgang_Eingang_Gesellschaft_Konto = "Eingang" Then
ActiveCell.Offset(0, 58).Value = CDec(Me.txtBetrag_Gesellschaft_Konto)
ActiveCell.Offset(0, 53).Value = CDec(Me.txtBetrag_MwSt)
End If
If Me.cboGesellschaft_Konto = "AW/Allgemeines Lewa" And Me. _
cboAusgang_Eingang_Gesellschaft_Konto = "Ausgang" Then
ActiveCell.Offset(0, 61).Value = CDec(Me.txtBetrag_Gesellschaft_Konto)
End If
If Me.cboGesellschaft_Konto = "AW/Allgemeines Lewa" And Me. _
cboAusgang_Eingang_Gesellschaft_Konto = "Eingang" Then
ActiveCell.Offset(0, 62).Value = CDec(Me.txtBetrag_Gesellschaft_Konto)
End If
If Me.cboGesellschaft_Konto = "AW/Allgemeines Euro" And Me. _
cboAusgang_Eingang_Gesellschaft_Konto = "Ausgang" Then
ActiveCell.Offset(0, 65).Value = CDec(Me.txtBetrag_Gesellschaft_Konto)
End If
If Me.cboGesellschaft_Konto = "AW/Allgemeines Euro" And Me. _
cboAusgang_Eingang_Gesellschaft_Konto = "Eingang" Then
ActiveCell.Offset(0, 66).Value = CDec(Me.txtBetrag_Gesellschaft_Konto)
End If
If Me.cboGesellschaft_Konto = "AW/Treuhand Lewa" And Me. _
cboAusgang_Eingang_Gesellschaft_Konto = "Ausgang" Then
ActiveCell.Offset(0, 69).Value = CDec(Me.txtBetrag_Gesellschaft_Konto)
End If
If Me.cboGesellschaft_Konto = "AW/Treuhand Lewa" And Me. _
cboAusgang_Eingang_Gesellschaft_Konto = "Eingang" Then
ActiveCell.Offset(0, 70).Value = CDec(Me.txtBetrag_Gesellschaft_Konto)
End If
If Me.cboGesellschaft_Konto = "AW/Treuhand Euro" And Me. _
cboAusgang_Eingang_Gesellschaft_Konto = "Ausgang" Then
ActiveCell.Offset(0, 73).Value = CDec(Me.txtBetrag_Gesellschaft_Konto)
End If
If Me.cboGesellschaft_Konto = "AW/Treuhand Euro" And Me. _
cboAusgang_Eingang_Gesellschaft_Konto = "Eingang" Then
ActiveCell.Offset(0, 74).Value = CDec(Me.txtBetrag_Gesellschaft_Konto)
End If
Unload Me
a = Cells(65536, 1).End(xlUp).Row - ActiveCell.Row + 1
For Each cell In Rows(ActiveCell.Row - 1).SpecialCells(xlCellTypeFormulas, 23)
cell.Copy Destination:=cell.Offset(1, 0).Resize(a, 1)
'For Each cell In Rows(ActiveCell.Row - 1) '.SpecialCells(xlCellTypeFormulas, 23)
'cell.AutoFill Destination:=cell.Offset(1, 0), Type:=xlFillFormats
Next
Range("A6:CM2000").Sort Key1:=Range("A6"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Columns(1).Find(CDate(Me.txtDatum)).Select
End Sub


Kannst du mir entsprechende Änderungen am Code machen?
meine Datei: https://www.herber.de/bbs/user/42025.xls
Danke im Voraus
Grüße aus Berlin

Anzeige
AW: VBA Formate aus darüberliegender Zeile übernehmen
25.04.2007 22:36:43
Daniel
Hallo
hier der Code, den du einfügen musst.
Prinzip ist, daß du erst die Formeln und Formate von oben runterkopierst und dann erst die Fix-Werte reinschreiben. Dann sollte es kein Problem geben.
der neue Code sind die 2 Zeilen am ende, danach gehts normal weiter.
den unteren teil, der die Probleme macht, kannst du dann löschen.

Private Sub cmdOK_Click()
Dim cell As Range
Dim a As Long
Dim lbMsg As Byte
If Not IsDate(txtDatum.Text) = True Then
lbMsg = MsgBox("Geben Sie ein gültiges Datum ein", vbExclamation, "falsche Eingabe") _
txtDatum.Text = ""
txtDatum.SetFocus
cmdOK.Enabled = False
Exit Sub
End If
If Not IsDate(txtfaellig_zum.Text) = True Then
lbMsg = MsgBox("Geben Sie ein gültiges Datum ein", vbExclamation, "falsche Eingabe") _
txtfaellig_zum.Text = ""
txtfaellig_zum.SetFocus
cmdOK.Enabled = False
Exit Sub
End If
If cboAusgang_Eingang_Gesellschaft_Konto.Text = "Ausgang" Then
If Val(txtBetrag_Gesellschaft_Konto.Text) > 0 Then
lbMsg = MsgBox("Geben Sie einen negativen Wert ein", vbExclamation, " _
falsche Eingabe")
txtBetrag_Gesellschaft_Konto.Text = ""
txtBetrag_Gesellschaft_Konto.SetFocus
cmdOK.Enabled = False
Exit Sub
End If
If Val(txtBetrag_MwSt.Text)  0 Then
lbMsg = MsgBox("Geben Sie einen negativen Wert oder 0 ein", vbExclamation, " _
falsche Eingabe")
txtBetrag_MwSt.Text = ""
txtBetrag_MwSt.SetFocus
cmdOK.Enabled = False
Exit Sub
End If
End If
Range("A:A").Find("", after:=[A6]).Activate
'neuer Code
ActiveCell.Offset(-1, 0).EntireRow.Copy Destination:=ActiveCell
ActiveCell.EntireRow.SpecialCells(xlCellTypeConstants).ClearContents
'ab hier dann normal weiter
ActiveCell.Value = CDate(Me.txtDatum)
ActiveCell.Offset(0, 1).Value = CDate(Me.txtfaellig_zum)


Gruß, Daniel

Anzeige
AW: VBA Formate aus darüberliegender Zeile übernehmen
26.04.2007 11:22:00
Peter
Danke, funktioniert bestens
;
Anzeige
Anzeige

Infobox / Tutorial

VBA Formate aus darüberliegender Zeile übernehmen

Schritt-für-Schritt-Anleitung

  1. Öffne den VBA-Editor: Drücke ALT + F11, um den VBA-Editor in Excel zu öffnen.

  2. Finde die Userform: Suche im Projektfenster die Userform, in der du Änderungen vornehmen möchtest (z.B. frmEingabe_neue_Zahlung).

  3. Füge den Code hinzu: Ersetze den bestehenden Code im cmdOK_Click-Ereignis durch den folgenden Code:

    Private Sub cmdOK_Click()
   Dim cell As Range
   Dim a As Long
   Dim lbMsg As Byte

   If Not IsDate(txtDatum.Text) = True Then
       lbMsg = MsgBox("Geben Sie ein gültiges Datum ein", vbExclamation, "falsche Eingabe")
       txtDatum.Text = ""
       txtDatum.SetFocus
       cmdOK.Enabled = False
       Exit Sub
   End If

   ' Weitere Validierungen hier...

   Range("A:A").Find("", after:=[A6]).Activate
   ' Neuer Code
   ActiveCell.Offset(-1, 0).EntireRow.Copy Destination:=ActiveCell
   ActiveCell.EntireRow.SpecialCells(xlCellTypeConstants).ClearContents
   ' Ab hier normal weiter
   ActiveCell.Value = CDate(Me.txtDatum)
   ActiveCell.Offset(0, 1).Value = CDate(Me.txtfaellig_zum)
   ' Weitere Zuweisungen...
End Sub

  4. Speichere die Änderungen: Schließe den VBA-Editor und speichere die Excel-Datei.

Häufige Fehler und Lösungen

  • Fehler: "Typen unverträglich"

    • Lösung: Überprüfe, ob alle Variablen korrekt deklariert sind und dass die Daten in den Textfeldern gültig sind.

  • Fehler: "Objekt nicht gefunden"

    • Lösung: Stelle sicher, dass die Userform und die Textfelder im Code korrekt benannt sind.

Alternative Methoden

  • Kopieren von Formaten: Anstatt den gesamten Code zu verwenden, kannst du auch nur die Formate kopieren, indem du diese Zeilen hinzufügst:

    ActiveCell.Offset(-1, 0).EntireRow.Copy
ActiveCell.PasteSpecial Paste:=xlPasteFormats

  • Verwendung von SpecialCells: Du kannst SpecialCells verwenden, um nur bestimmte Formate zu kopieren und nicht die gesamte Zeile.

Praktische Beispiele

  • Beispiel für das Kopieren von Formaten:

    For Each cell In Rows(ActiveCell.Row - 1).SpecialCells(xlCellTypeFormulas)
   cell.Copy Destination:=cell.Offset(1, 0)
Next cell

  • Beispiel für das Kopieren von Werten:

    ActiveCell.Offset(0, 2).Value = Me.txtBetrag_Gesellschaft_Konto

Tipps für Profis

  • Verwende With-Anweisungen: Um den Code übersichtlicher zu gestalten, kannst du With-Anweisungen verwenden, um mehrfach auf ein Objekt zuzugreifen.

    With ActiveCell
   .Value = CDate(Me.txtDatum)
   .Offset(0, 1).Value = CDate(Me.txtfaellig_zum)
End With

  • Füge Fehlerbehandlung hinzu: Verwende On Error Resume Next, um potenzielle Fehler abzufangen und zu behandeln.

FAQ: Häufige Fragen

1. Wie kann ich sicherstellen, dass die Formate korrekt kopiert werden?
Verwende die PasteSpecial-Methode, um sicherzustellen, dass nur die Formate und nicht die Werte kopiert werden.

2. Kann ich den Code auch in anderen Excel-Versionen verwenden?
Ja, der Code sollte in den meisten Versionen von Excel (ab Excel 2007) funktionieren, solange VBA unterstützt wird.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige