title image


Smiley Re: Übernahme von Daten aus Monatstabelle in Jahrestabelle
Hallo Michael,



nachstehendes Makro befindet sich in "diese Arbeitsmappe"





Option Explicit

Private Sub Workbook_Open()

Dim i As Integer

For i = 1 To Worksheets.Count

If Worksheets(i).Name = Format(Now, "mmyy") Then

Worksheets(i).Activate

[B2] = Format(Now, "mmm yyyy")

Range("B2").Font.Bold = True

Exit For

End If

Next i

End Sub





es bewirkt, dass beim Starten der Datei das Arbeitsblatt aktiviert wird, dessen Tabellenblattname identisch ist mit dem Datum der Eingabe bezogen auf den Monat,

dh. z.B. aktuelles Datum = 28.05.2006 - es wird das Tabellenblatt 0506 beim Start aufgerufen und in die Zelle B2 der Monat und das Jahr eingetragen.







Im Tabellenblatt "Gesamt" ist folgendes Makro hinterlegt:





Option Explicit

Private Sub Worksheet_Activate()

Dim i As Integer

Dim Zeile As Long

Dim Zeile1 As Long

' Einfügezeile festlegen

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

'Altbestand loeschen

Worksheets("Gesamt").Range("B5:I" & Zeile1).Delete

' Blätter durchsuchen

For i = 1 To Worksheets.Count

If Not Worksheets(i).Name = "Gesamt" Then

If IsEmpty(Worksheets(i).Range("B5")) = False Then

Zeile = Sheets(i).Cells(Rows.Count, 2).End(xlUp).Row

Zeile1 = Sheets("Gesamt").Cells(Rows.Count, 2).End(xlUp).Row + 1

Worksheets(i).Range("B5:I" & Zeile).Copy _

Destination:=Worksheets("Gesamt").Range("B" & Zeile1)

End If

End If

Next i

End Sub







Wenn das Tabellenblatt "Gesamt" aufgerufen wird dann wird das Makro ausgeführt und macht folgendes:



Zunächst wird der gesamte Bestand, der in dem Tabellenblatt Gesamt enthalten ist gelöscht.

Dann werden alle übrigen Tabellenblätter (von 0106 bis 12056) nach Einträgen durchsucht. Wenn in der Zelle B5 bei diesen Tabellenblättern ein Eintrag steht, wird der gesamte Bereich jedes einzelnen Tabellenblattes in das Tabellenblatt Gesamt kopiert. Im Tabellenblatt Gesamt erscheinen also alle Einträge aller übrigen Tabellenblätter untereinander.





Viele Grüße



Herby









geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: