Daten vom Blatt zu Blatt automatisch kopieren

Hallo an alle,
habe ein kleines Problem :-) zu lösen und brauche als VBA Laie Hilfe.
Möchte das die Eintragungen von Blatt 1 (Mainabrechnung) zu den anderen Blättern je nach Monatseintrag im Blatt (Mainabrechnung) zu den jeweiligen blättern mit denselben Monatseintrag automatisch rüber kopiert werden. Wenn es nicht möglich ist dann mit ein Button. So das am Ende die Eintragungen von Hauptblatt auf 12 Monatsblätter rüber kopiert werden.
Kurz gesagt, ist Monat Januar in Main Blatt , dann alles zum Blatt Januar automatisch rüber kopieren.
Alle Blätter haben mit VBA Versteckte Zellen.
Werde selbst durcheinander mit der Erklärung :-)...sry kann glaube ich nicht besser erklären.
Anbei die Datei um es verdeutlichen.
https://www.herber.de/bbs/user/124960.xlsm
Ps. Habe nur 2 Monatsblätter eingetragen statt 12 um unter der 300kb zusein. Norml müssten da 12 Monatsblätter sein.
Danke im Voraus,
Niko

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Niko,
was um alles in der Welt hast du denn da mit der bedingten Formatierung angestellt? In jedem Blatt hunderte von bedingten Formatierungen?
Aber das war ja nicht die Frage.
1. Benenne deine Monatsblätter um, jeweils den Monatsnamen
2. hebe den Zellverbund A501 bis H501 in jedem Blatt auf
3. lösche das Infos aus A501 und schreibe es in B501 (alle Blätter)
4. Markiere A501:H501, Zellen formatieren, Ausrichtung, Horizontal - über Auswahl zentrieren
Spalte A muss von unten her komplett leer sein, weil ich da von unten nach oben die letzte belegte Zelle ermittle.
Das mit dem Automatisch ist so eine Sache. An was willst du fest machen, dass der Datensatz komplett ist und die Daten ins entsprechende Monatsblatt übertragen werden können? Wenn alle Spalten ausgefüllt sind? Und was ist falls mal eine Spalte nicht ausgefüllt werden solte?
Hier mal ein Code. Der überträgt die jeweiligen Datensätze bei Doppelklick auf ein Datum in Spalte A.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim raFund As Range, wsBlatt As Worksheet
Application.ScreenUpdating = False
If Target.Column = 1 Then
If Target.Row > 9 Then
If IsDate(Target) Then
Cancel = True
With Worksheets(Format(Target, "MMMM"))
Set raFund = .Columns(1).Find(what:="*", LookIn:=xlValues, LookAt:=xlWhole,  _
SearchDirection:=xlPrevious)
Target.Resize(, 11).Copy
.Cells(raFund.Offset(1).Row, 1).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End With
End If
End If
End If
End Sub

Gruß Werner

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim intZeile As Integer, strMonat As String, i As Integer, bytMeinZeile As Byte If ActiveCell = "" Then Exit Sub Application.ScreenUpdating = False strMonat = CStr(Format(Target, "MMMM")) bytMeinZeile = ActiveCell.Row For i = 10 To 499 If Sheets(strMonat).Cells(i, 1) = "" Then intZeile = i Exit For End If Next i For i = 1 To 11 Sheets("Mainabrechnung").Cells(bytMeinZeile, i).Copy Sheets(strMonat).Cells(intZeile, i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _ SkipBlanks _ :=False, Transpose:=False Next i End Sub

Beliebteste Forumthreads (12 Monate)

Daten vom Blatt zu Blatt automatisch kopieren

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread