Thema Datum  Von Nutzer Rating
Antwort
05.08.2016 07:41:19 Jürgen
NotSolved
Blau Zusammenfassen von mehreren Arbeitsblättern
05.08.2016 08:49:01 Gast85103
Solved

Ansicht des Beitrags:
Von:
Gast85103		 Datum:
05.08.2016 08:49:01		 Views:
572		 Rating:
     
Antwort:
 Nein
Thema:
Zusammenfassen von mehreren Arbeitsblättern
Sub KonsolidiereMal() Dim wks 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 + 1 wks.Range(wks.Cells(1, 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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
05.08.2016 07:41:19 Jürgen
NotSolved
Blau Zusammenfassen von mehreren Arbeitsblättern
05.08.2016 08:49:01 Gast85103
Solved