Übertrag auf andere Blätter je nach Monat

Forumthread: Übertrag auf andere Blätter je nach Monat
8 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Übertrag auf andere Blätter je nach Monat

24.11.2024 11:24:28

KDF

Hallo und guten Tag.
Ich habe folgen Code:
Sub Buchen()
Sheets("Übertrag").Select
Range("H8:K8").Copy

With Sheets("Januar")
If .Range("H10") = "" Then
.Range("H10").PasteSpecial Paste:=xlValues
.Range("H10").PasteSpecial Paste:=xlFormats
Else
.Range("H9").End(xlDown).Offset(1, 0).PasteSpecial Paste:=xlValues
.Range("H9").End(xlDown).Offset(1, 0).PasteSpecial Paste:=xlFormats
End If
End With
End Sub

Da werden Daten auf das Blatt "Januar" übertragen.
Wie muss der Code aussehen wenn die Daten im Januar auf Blatt Januar, im Februar auf Blatt Februar usw eingetragen werden sollen?
Kann jemand helfen?

Bis dann,
Klaus D.

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Übertrag auf andere Blätter je nach Monat

24.11.2024 11:45:58

Oberschlumpf
AW: Übertrag auf andere Blätter je nach Monat

24.11.2024 12:33:13

RPP63
AW: Übertrag auf andere Blätter je nach Monat

24.11.2024 12:56:42

KDF
AW: Übertrag auf andere Blätter je nach Monat

24.11.2024 13:33:34

hary
AW: Übertrag auf andere Blätter je nach Monat

24.11.2024 13:55:23

KDF
AW: Übertrag auf andere Blätter je nach Monat

24.11.2024 12:08:15

KDF
AW: Übertrag auf andere Blätter je nach Monat

24.11.2024 12:18:32

Oberschlumpf
AW: Übertrag auf andere Blätter je nach Monat

24.11.2024 12:29:36

KDF

AW: Übertrag auf andere Blätter je nach Monat

24.11.2024 11:45:58

Oberschlumpf

Hi Klaus,

änder diesen Code...

With Sheets("Januar")

...um in...



Dim larstrMonat(1 To 12), liIdx As Integer



    For liIdx = 1 To 12

        larstrMonat(liIdx) = Format(DateSerial(2024, Month("01." & liIdx & ".2024"), 1), "MMMM")

    Next

    

With Sheets(larstrMonat(Month(Date)))

Zuerst werden mit For/Next alle 12 Monatsnamen (=deine Blattnamen) in einer Arrayvariablen gesammelt.
Und in der With Sheets... Zeile wird dann mit Hilfe von Month(Date) der aktuelle Monat ermittelt, und somit immer das richtige Tabellenblatt ausgewählt.

Hilfts?
Nein? Ne andere Idee hab ich nicht.

Ciao
Thorsten

AW: Übertrag auf andere Blätter je nach Monat

24.11.2024 12:33:13

RPP63

Moin!
With Sheets(Format(Date, "MMMM"))

Gruß Ralf

AW: Übertrag auf andere Blätter je nach Monat

24.11.2024 12:56:42

KDF

Danke liebe Helfer,
ich krieg es nicht hin.
Schick doch mal bitte den kompletten Code.

Bis dann,
Klaus F.

AW: Übertrag auf andere Blätter je nach Monat

24.11.2024 13:33:34

hary

Moin
Auf die schnelle. Ohne Pruefungen ect..

Sub Buchen()

Sheets("Übertrag").Range("H8:K8").Copy

With Sheets(Format(Range("H8"), "MMMM"))

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

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

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

  Else

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

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

  End If

End With

Application.CutCopyMode = False

 Sheets("Übertrag").Range("H8:K8").ClearContents

End Sub

gruss hary

AW: Übertrag auf andere Blätter je nach Monat

24.11.2024 13:55:23

KDF

Ja super, es passt.
Danke allen Helfern.
Ein schönes Rest-WE,
bis zum nächsten Problem,
Klaus D.

AW: Übertrag auf andere Blätter je nach Monat

24.11.2024 12:08:15

KDF

Hallo, leider kommt eine Fehlermeldung.
Hier mal der Rohling meiner Datei:
https://www.herber.de/bbs/user/173790.xlsm
Dann geht es vllt besser?
Bis dann,
Klaus D.

AW: Übertrag auf andere Blätter je nach Monat

24.11.2024 12:18:32

Oberschlumpf

Hi,

natürlich kommt es in deiner Bsp-Datei zu nem Fehler.
Wieso?

Der aktuelle, jetzige Monat ist..naa??..genau = November!

Und mindestens welches Tabellenblatt fehlt in deiner Datei? Auch genau = November!

Füg also ein weiteres Tabellenblatt namens "November" deiner Datei hinzu und starte den Code erneut - läufts jetzt?

Ciao
Thorsten

AW: Übertrag auf andere Blätter je nach Monat

24.11.2024 12:29:36

KDF

Ja, es stimmt, das Blatt November ist nicht da.
Wenn ich aber doch im Blatt "Übertrag" in Zelle H8 ein Datum aus Januar eingebe sollen die Werte ins Blatt Januar übertragen werden.
Trage ich jetzt ein Datum aus Januar ein werden die Daten ins Blatt November übertragen. Das soll so eigentlich nicht.
Kann man das noch hinkriegen?
Bis dann,
Klaus D.

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