Aufgaben in Excel mit VBA automatisieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Michael

ich habe einen Code zum Konsolidieren für den Monat Januar entwickelt. Teste ihn bitte mal.
Leider kann ich die Datei nicht hochladen, weil ich mit dem alten Excel 2003 arbeite! (>600kb)

Ein Problem besteht in zwei Sheet! in "Konsolidierte_Ausgaben" gibt es das Datum nur in Spalte A!
Wie bitte soll ich das Datum für die Monate Februar, März angeben, wenn es dafür keine Spalten gibt??
In der Tabelle könnte man neben jeden Monat noch eine Datumspalte einfügen.

In der Tabelle "Ausgaben_eintragen" dasselbe Problem, Datum nur in der Spalte A, Text in Spalte B"
Wie trägst du dort das Datum und den Belegtext für die Folgemonate ein?? Daran scheitere ich zur Zeit.
In dieser Tabelle könntest du die Monate untereinander setzen, in fortlaufenden Zeilen statt Spalten.

Ich warte mal ab welche Lösung dir dazu einfällt, wie man das ändern kann??

mfg Piet

Option Explicit

Dim AC As Range, lz1 As Long

Dim AAdr As String, FAdr As String





'Konsolidierungs Formeln einfügen



Sub Konsolidierung_Januar()

Dim Datum As Date, ze As Long

Dim ASG As Worksheet, j As Long

Set ASG = Worksheets("Ausgaben_eintragen")

lz1 = ASG.Cells(Rows.Count, 1).End(xlUp).Row



With Worksheets("Konsolidierte_Ausgaben")

     'Monat Januar Spalte B+C löschen

     j = .Cells(Rows.Count, 2).End(xlUp).Row + 1

     .Range("A2:B" & j).ClearContents



     Datum = ASG.Range("A2").Value

     AAdr = "B2"  'Anfangsadresse Januar

     ze = 2  '1.Zeile in Konsolidierung

     

     'Ausgaben Konsolidieren

     For j = 2 To lz1 + 1

        If ASG.Cells(j, 1) = Datum Then

           FAdr = ASG.Cells(j, 3).Address

           .Cells(ze, 2).Formula = "=Ausgaben_eintragen!" & FAdr

        Else

           .Cells(ze, 2).FormulaLocal = "=SUMME(" & AAdr & ":B" & ze - 1 & ")"

           .Cells(ze, 1).Value = Datum:  ze = ze + 1

           FAdr = ASG.Cells(j, 3).Address

           .Cells(ze, 2).Formula = "=Ausgaben_eintragen!" & FAdr

            Datum = ASG.Cells(j, 1)

            AAdr = .Cells(ze, 2).Address(0, 0)

        End If

        ze = ze + 1

     Next j

     'letzem Nullwert löschen

     .Cells(ze - 1, 2).Value = Empty

End With

End Sub

Sub Schaltfläche1_Klicken() Dim Monat As Variant If MsgBox("Willst du die Jahreswerte zurücksetzen?", vbYesNo + vbExclamation, "Zeiten zurücksetzen?") = vbYes Then For m = 1 To 12 Monat = Format(DateSerial(2024, m, 1), "mmmm") With Worksheets(Monat) .Range("E3:G33").ClearContents .Range("I3:K33").ClearContents .Range("O3:S33").ClearContents .Columns("A").ColumnWidth = 4 .Columns("B").ColumnWidth = 13.5 .Columns("C").ColumnWidth = 13 .Columns("D").ColumnWidth = 16.9 .Columns("E").ColumnWidth = 12.7 .Columns("F:N").ColumnWidth = 8 .Columns("O").ColumnWidth = 15.9 .Columns("P").ColumnWidth = 30 .Columns("Q:R").ColumnWidth = 11.9 .Columns("S").ColumnWidth = 50 .Columns("T:V").ColumnWidth = 12.6 .Columns("W").ColumnWidth = 23.9 .Columns("X").ColumnWidth = 11 .Columns("Y").ColumnWidth = 3 .Columns("Z:AF").ColumnWidth = 20 .Columns("AG:AH").ColumnWidth = 10 .Rows("1:1").RowHeight = 50 .Rows("2:2").RowHeight = 85 .Rows("3:33").RowHeight = 30 .Rows("34:34").RowHeight = 20 .Rows("35:35").RowHeight = 25 .Rows("36:36").RowHeight = 10 .Rows("37:37").RowHeight = 25 End With Next m End If End Sub

Hallo Piet,
ich hoffe ich nerve nicht aber ich möchte halt verstehen was du dort an Code geschrieben hast.
Ich schreibe ein paar Kommentare (hinter die // ) an die jeweiligen Zeilen und hoffe das ich den Code verstanden habe um Ihn für die anderen Monate zu nutzen....

Private Sub CommandButton1_Click()

Dim AC As Range, lz1 As Long
Dim AAdr As String, FAdr As String

'Konsolidierungs Formeln einfügen

'Konsolidierung_Januar()
Dim Datum As Date, ze As Long
Dim ASG As Worksheet, j As Long
Set ASG = Worksheets("Ausgaben_eintragen")
lz1 = ASG.Cells(Rows.Count, 1).End(xlUp).Row

With Worksheets("Konsolidierte_Ausgaben")
'Monat Januar Spalte B+C löschen
j = .Cells(Rows.Count, 2).End(xlUp).Row + 1
.Range("A2:B" & j).ClearContents // .Range("A2:C"&j)

Datum = ASG.Range("A2").Value
AAdr = "B2" 'Anfangsadresse Januar // Für Februar dann "C2"
ze = 2 '1.Zeile in Konsolidierung

'Ausgaben Konsolidieren
For j = 2 To lz1 + 1
If ASG.Cells(j, 1) = Datum Then
FAdr = ASG.Cells(j, 3).Address
.Cells(ze, 2).Formula = "=Ausgaben_eintragen!" & FAdr
Else
.Cells(ze, 2).FormulaLocal = "=SUMME(" & AAdr & ":B" & ze - 1 & ")" // statt dem "B" ein "C"
.Cells(ze, 1).Value = Datum: ze = ze + 1
FAdr = ASG.Cells(j, 3).Address
.Cells(ze, 2).Formula = "=Ausgaben_eintragen!" & FAdr
Datum = ASG.Cells(j, 1)
AAdr = .Cells(ze, 2).Address(0, 0)
End If
ze = ze + 1
Next j
'letzem Nullwert löschen
.Cells(ze - 1, 2).Value = Empty
End With

End Sub

Beliebteste Forumthreads (12 Monate)

Aufgaben in Excel mit VBA automatisieren

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Aufgaben in Excel mit VBA automatisieren

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread