Microsoft Excel

Herbers Excel/VBA-Archiv

VBA aus mehreren Blätter eine Gesamtansicht machen

Betrifft: VBA aus mehreren Blätter eine Gesamtansicht machen von: Dominik
Geschrieben am: 30.07.2014 10:57:43

Hallo Community,

habe folgendes Problem und bisher leider nichts passendes gefunden...
Ich möchte aus meinen Tabellenblättern eine Gesamtansicht machen.
Folgenden Code habe ich bereits gefunden und er macht diese Aufgabe sehr gut!
Aber wie müsste ich ihn ändern, wenn z.b. das Tabellenblatt "Auswertung" nicht in diese Gesamtansicht soll?

Vielen Dank!
Gruß, Dominik

  • 
    Sub KonsolidiereMalbackup()
    Dim Wks As Worksheet
    Dim VW As Worksheet
    Dim wksK As Worksheet
    Dim lngLetzteZeileKons As Long
    Dim lngAbZeile As Long
    Application.DisplayAlerts = False
    On Error Resume Next
    Set wksK = ActiveWorkbook.Worksheets("Konsolidierung")
    wksK.Delete
    On Error GoTo 0
    Set wksK = Worksheets.Add(Before:=ActiveWorkbook.Sheets(1))
    wksK.Name = "Konsolidierung"
    lngLetzteZeileKons = 0
    For Each Wks In ActiveWorkbook.Worksheets
     If Wks.Name <> wksK.Name Then
      lngAbZeile = lngLetzteZeileKons + 2
      Wks.Range(Wks.Cells(4, 1), Wks.Cells(Wks.Cells.SpecialCells(xlCellTypeLastCell).Row, 254)). _
    Copy _
                Destination:=wksK.Cells(lngAbZeile, 2)
      lngLetzteZeileKons = wksK.Cells.Find(What:="*", _
          After:=wksK.Cells(1), _
          LookIn:=xlValues, _
          LookAt:=xlWhole, _
          SearchOrder:=xlByRows, _
          SearchDirection:=xlPrevious).Row
      wksK.Range(wksK.Cells(lngAbZeile, 1), wksK.Cells(lngLetzteZeileKons, 1)) = Wks.Name
     End If
    Next
    Application.DisplayAlerts = True
    End Sub

  •   

    Betrifft: AW: VBA aus mehreren Blätter eine Gesamtansicht machen von: Rudi Maintaire
    Geschrieben am: 30.07.2014 11:03:31

    Hallo,

    For Each Wks In ActiveWorkbook.Worksheets
     If Wks.Name <> wksK.Name And wks.Name <> "Auswertung" Then

    Gruß
    Rudi


      

    Betrifft: AW: VBA aus mehreren Blätter eine Gesamtansicht machen von: Robert
    Geschrieben am: 30.07.2014 11:03:38

    Hallo Dominik,

    Ändere folgendes

    If Wks.Name <> wksK.Name Then
    in dieses:
    If Wks.Name <> wksK.Name And Wks.Name <> "Auswertung" Then
    Viele Grüße
    Robert


      

    Betrifft: AW: VBA aus mehreren Blätter eine Gesamtansicht machen von: Dominik
    Geschrieben am: 30.07.2014 11:13:32

    Super! Danke euch!
    Ein super Forum!!!


      

    Betrifft: AW: VBA aus mehreren Blätter eine Gesamtansicht machen von: Adis
    Geschrieben am: 30.07.2014 13:48:11

    Hallo

    es gibt noch eine Alternative die ich gerne werwende wenn es -mehrere Blaetter- sind
    Der If Anweisung das unerwünscht Blatt voran stellen und mit ElseIf weiter arbeiten.
    Damit kann man mehrere Blaetter überspringen

    If Wks.Name = Sheet(Auswertung1) 'die If Anweisung ist erfüllt, es gibt aber kein Programm
    ElseIf Wks.Name = Sheet(auch nicht) 'folglich wird nichts ausgeführt und For Next geht weiter
    ElseIf Wks.Name <> wksK.Name 'erst wenn diese Bedingung erfüllt ist wird ausgefüllt

    Gruss Adis


      

    Betrifft: AW: VBA aus mehreren Blätter eine Gesamtansicht machen von: Dominik
    Geschrieben am: 30.07.2014 11:15:27

    Super! Danke euch!
    Ein super Forum!!!


     

    Beiträge aus den Excel-Beispielen zum Thema "VBA aus mehreren Blätter eine Gesamtansicht machen"