Macro um ein Sheet erweitern

09.11.2024 20:33:50

KDF

Hallo und guten Tag.
Ich habe folgenden Code:
Sub Buchen()
Sheets("Eingabe").Select
Range("H10:M10").Select
Selection.Copy
Sheets("Heizkosten gesamt").Select
Sheets("Wohnzimmer").Select
If Range("J12") > "" Then
Range("J11").End(xlDown).Select
ActiveCell.Offset(1, 0).Select
Else
Range("J12").Select
End If
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Eingabe").Select
Range("J11").Select
Application.CutCopyMode = False
Range("H10:L10").Select
Selection.ClearContents
Sheets("Eingabe").Select
Range("H10").Select

End Sub

Ich möchte, dass die Eingabe auf beiden Sheets erfolgt. So erfolgen die Einträge nur auf dem Sheet "Wohnzimmer", nicht auf "Heizkosten gesamt".
Wie muss ich das ändern damit auf beiden Sheets die Angaben eingetragen werden?

Bis dann,
Klaus F.

AW: Macro um ein Sheet erweitern

09.11.2024 20:42:32

Onur

Sheets("Heizkosten gesamt").Select

Sheets("Wohnzimmer").Select

Da kannst du die erste der Zeilen auch weglassen, da die zweite sie wieder aufhebt.

AW: Macro um ein Sheet erweitern

09.11.2024 20:52:06

Uduuh

Hallo,
teste mal:

Sub Buchen()

  Sheets("Eingabe").Range("H10:M10").Copy

  With Sheets("Wohnzimmer")

    If .Range("J12") > "" Then

      .Cells(Rows.Count, 10).End(xlUp).Offset(1).PasteSpecial xlPasteValues

    Else

      .Cells(12, 10).End(xlUp).PasteSpecial xlPasteValues

    End If

  End With

  With Sheets("Heizkosten gesamt")

    If .Range("J12") > "" Then

      .Cells(Rows.Count, 10).End(xlUp).Offset(1).PasteSpecial xlPasteValues

    Else

      .Cells(12, 10).End(xlUp).PasteSpecial xlPasteValues

    End If

  End With

  Application.CutCopyMode = False

  Sheets("Eingabe").Range("H10:L10").ClearContents

End Sub

Gruß aus'm Pott
Udo

AW: Macro um ein Sheet erweitern

09.11.2024 22:13:54

Piet

Hallo

probiere bitte mal diesen Code, ob er einwandfrei läuft. Würde mich freuen.

mfg Piet

Sub Buchen()

Sheets("Eingabe").Select

Range("H10:M10").Copy



With Sheets("Wohnzimmer")

If .Range("J12") = "" Then

   .Range("J12").PasteSpecial Paste:=xlValues

   .Range("J12").PasteSpecial Paste:=xlFormats

Else

   .Range("J11").End(xlDown).Offset(1, 0).PasteSpecial Paste:=xlValues

   .Range("J11").End(xlDown).Offset(1, 0).PasteSpecial Paste:=xlFormats

End If

End With



With Sheets("Heizkosten gesamt")

If .Range("J12") = "" Then

   .Range("J12").PasteSpecial Paste:=xlValues

   .Range("J12").PasteSpecial Paste:=xlFormats

Else

   .Range("J11").End(xlDown).Offset(1, 0).PasteSpecial Paste:=xlValues

   .Range("J11").End(xlDown).Offset(1, 0).PasteSpecial Paste:=xlFormats

End If

End With



Application.CutCopyMode = False

Range("H10:L10").ClearContents

Range("H10").Select

End Sub

AW: Macro um ein Sheet erweitern

09.11.2024 22:56:57

KDF

Hallo Piet,
danke, passt

Bis dann,
Klaus F.

AW: Macro um ein Sheet erweitern

09.11.2024 21:10:21

KDF

Hallo Udo, das passt merkwürdiger Weise nicht ganz.
Die Daten werden wohl in beide Sheets übertragen allerdings an die falschen Ort.
Bei "Heizkosten gesamt" in J11-O11
bei "Wohnzimmer" in J1-O1
Soll aber in beiden Fällen immer untereinander ab J12

Bis dann, Klaus D.

AW: Macro um ein Sheet erweitern

09.11.2024 21:32:46

KDF

Warum bei "Wohnzimmer" in Zeile 1 eingetragen wird habe ich den Fehler bei mir bemerkt. In Spalte J war kein Eintrag, dann wird natürlich in Zeile 1 eingetragen.

AW: Macro um ein Sheet erweitern

09.11.2024 21:39:27

Yal

Moin,

deine Code, aber auf 2 Arbeitsblätter ergänzt:

Sub Buchen()

Dim ws As Worksheet



    Sheets("Eingabe").Range("H10:M10").Copy

    For Each ws In Worksheets(Array("Heizkosten gesamt", "Wohnzimmer"))

        If ws.Range("J12") > "" Then

            ws.Range("J11").End(xlDown).Offset(1, 0).Select

        Else

            ws.Range("J12").Select

        End If

        Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

        Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

    Next

    Application.CutCopyMode = False

    Sheets("Eingabe").Range("H10:L10").ClearContents

End Sub

VG
Yal

AW: Macro um ein Sheet erweitern

09.11.2024 21:44:07

KDF

Hier wird leider ein Fehler angezeigt bei: ws.Range("J12").Select
Wird in gelb angezeigt

AW: Macro um ein Sheet erweitern

09.11.2024 20:46:30

KDF

Und wie muss ich das jetzt ändern damit auf beiden Sheets die Einträge erfolgen?

Macro um ein Sheet erweitern

Forumthread: Macro um ein Sheet erweitern

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Macro um ein Sheet erweitern

Forumthread: Macro um ein Sheet erweitern

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread