Office: Tabelle mit Foramtierung automatisch kopieren

also ich hab da mal eine frage
und zwar hab ich derzeit eine Exeldatei mit 12 tabellen (Monate)
ich möchte jetzt eine tabelle erstellen in der teile dieser 12 tabellen automatisch eingetragen und aktualiesiert werden

also zb bereich D - J aus tabelle jan - dez soll in tabel jahresübersicht erscheinen und bei änderung der tabellen jan - dez auch aktualiesiert werden
auch mit der jeweiligen formatierung also auch wenn ich zb etwas farbig hinterlege oder zellen zusammenfüge soll das in der jahresüberblick tabelle auch passieren!


desweiteren habe ich eine access DB eingebunden in diese tabellen und möchte nun da ich auch leere DB einträge habe diese zeilen automatisch ausgeblendet bekommen danke schon mal für eure hilfe!

 

Hallo!

Am einfachsten zeichnest du dir den gesamten Kopiervorgang einmal mit dem Makro-Rekorder auf und rufst dann dieses Makro als Worksheet_Activate-Ereignis oder per Button auf.

Auch das Zeilenausblenden geht nur mit VBA, z.B.

Code:

If Range("B5") = "" Then Rows(5).Hidden = True

 

ja also ich hab jetzt das mal mit dem ausblenden ausprobiert hab makros Visual-basic-editor geöffnet tabelle 1 code anzeigen gemacht das rein kopiert und angepast hoffendlich richtig!

Code:

If Range("C5") = "varkant" Then Rows(5).Hidden = True

varkant ist hier hoffendlich der wert der dastehen muss das die zeile ausgeblendet wird!
und wie bring ich das zum laufen und muss ich das für jede mögliche zeile wo dieses wort auftauchen kann neu scheiben also für C6 C7 C8 usw wobei ich dann auch das (5) durch die jeweilige zeile ersetzen muss!
aber er macht das leider nicht! das er das ausblendet!

 

Hallo!

Das könnte dann so aussehen:

Code:

Sub Ausblenden()
Dim i as Integer
For i = 5 to 100
If Cells(i, 3) = "varkant" Then Rows(i).Hidden = True
Next i
End Sub

Klappert den Bereich C5:C100 ab und gehört ins Modul des Tabellenblatts.

PS: "vakant" schreibt man eigentlich ohne "r"...

 

thx ok jetzt nur noch eine frage zu dem code wo lege ich das fest das er das auch auf einer anderen spalte mach also nicht C sonder zb D oder F

 

Hallo!

Code:

Cells(i, 3)

Der erste Parameter steht für die Zeile, der zweite für die Spalte (hier "3" für Spalte C).

 

ok thx jetzt verstehe ich die formel :-) aber funktionieren tuts net also zu dem was ich im VBE mache ich kopiere deinen code einfach.

klicke rechts auf tabbel1 code anzeigen dann kopier ich rein!

mach alles zu und mach die excel datei neu auf funktioniert aber leider net!
mein test mit dem hier

Code:

Private Sub Worksheet_Activate()
Sub Ausblenden()
Dim i As Integer
For i = 5 To 20
If Cells(i, 3) = "vakant" Then Rows(i).Hidden = True
Next i
End Sub
End Sub

in der jeweiligen tabelle geht leider auch nicht!

ich benutze office 2003 hier und das soll am ende auf 2000 funktionieren!

 

Ist ein bisschen viel "Sub"...

Code:

Private Sub Worksheet_Activate()

Dim i As Integer
For i = 5 To 20
If Cells(i, 3) = "vakant" Then Rows(i).Hidden = True
Next i

End Sub 

 

genial ich habs hinbekommen danke dir für dein hilfe super!

 

ehm so da hätte ich leider das problem jetzt anders rum da ich die daten der felder die vakant enthalten aus einer Access DB importieren müssen sich die zeile auch wieder einblenden wenn da nicht mehr vakant steht! oder halt das er automatisch alle zeilen beim schließen wieder einblendet

Code:

Private Sub Worksheet_Deactivate()

Dim i As Integer
For i = 5 To 20
If Cells(i, 3) = "vakant" Then Rows(i).Show = True
Next i

End Sub

das show hab ich mir jetzt mal ausgedacht aber das ist eigendlich der punkt der hier noch geändert werden muss oder?

*edit ah ne das kann ja so auch net funktionieren weil da ja dann schon nicht mehr vakant stehen muss zum zeitpunkt des deaktivierens

 

Hallo!

Klar, das muss natürlich noch mit rein:

Code:

Private Sub Worksheet_Activate()

Dim i As Integer
For i = 5 To 20
If Cells(i, 3) = "vakant" Then Rows(i).Hidden = True Else Rows(i).Hidden = False
Next i

End Sub

 

danke dir :-) jetzt funz es so wie es soll!

 

so hab jetzt mal das mit dem macro aufzeichnen ausprobiert leider hab ich da jetzt das nächste problem der

Code:

Private Sub Worksheet_Activate()

    Range("A1:D20").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Tabelle4").Select
    Range("A1").Select
    ActiveSheet.Paste
    Sheets("Tabelle2").Select
    [b]Range("A1:D20").Select[/b]
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Tabelle4").Select
    Range("E1").Select
    ActiveSheet.Paste
    Sheets("Tabelle3").Select
    Range("A1:D20").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Tabelle4").Select
    Range("I1").Select
    ActiveSheet.Paste
    Range("I24").Select
    
End Sub

bei dem fett gedruckten macht er mir dann den fehler das er das nicht auswählen kann

mit der fehlermeldung

tut mir leid das ich so ein stressiger patient bin

 

pssst.... im codebereich geht kein fettdruck, aber du meintest das hier oder...

Code:

Range("A1:D20").Select

könntest du die tabelle den nnicht mal "anonymisiert " hochladen

dann tun wir uns alle einfacher

 

ja ich hab hier mal meine testdatei mit meinem aufgezeichneten makro

*edit muss ich vielleicht vor jeden
Range("A1:D20").Select befehl
ein

Code:

Range("A1:D20").Hidden = False

machen?

*edit ne das funktioniert auch net!

*edit ich bin ja auch mal fleißig am testen ne gekürzte fassung des codes wäre ja

Code:

Private Sub Worksheet_Activate()

    Range("Tabelle1!A1:D20").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("A1").Select
    ActiveSheet.Paste
    Range("Tabelle2!A1:D20").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("E1").Select
    ActiveSheet.Paste
    Range("Tabelle3!A1:D20").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Tabelle4").Select
    Range("I1").Select
    ActiveSheet.Paste
    
    
End Sub

nur mal zu meinem verständnis aber funktioniert leider auch net er kommt immer mit dem Range("Tabelle1!A1:D20").Select nicht klar egal in welcher version