Thema Datum  Von Nutzer Rating
Antwort
09.08.2019 14:15:27 Patrick
NotSolved
09.08.2019 14:46:20 Gast71206
NotSolved
Rot Auffüllen der Zellen umzu filtern
 12.08.2019 10:12:03 Patrick
NotSolved
12.08.2019 10:13:00 Gast99598
NotSolved

Ansicht des Beitrags:
Von:
Patrick		 Datum:
12.08.2019 10:12:03		 Views:
402		 Rating:
     
Antwort:
  Ja
Thema:
Auffüllen der Zellen umzu filtern		 
Leider passiert bei der Ausführung deines Codes nichts. Tabellenname und Bereich angepasst.

Sub KONS()
'Konsolidierung aller vorhandenen Arbeitsblätter
Dim Wks As Worksheet
Dim Bereich As Range
Dim strLC As String
Dim i As Integer

Set Wks = Worksheets.Add
Wks.Name = "All_Data"

'Konsolidierung der ersten Arbeitsblätter mit Überschriften
 With Worksheets(2).UsedRange
  strLC = .Cells(.Rows.Count - 1, .Columns.Count).Address
  Set Bereich = .Range("A1:" & strLC)
  Bereich.Copy Destination:= _
  Wks.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
 End With
 
'Konsolidierung der restlichen Arbeitsblätter mit Überschriften
For i = 3 To Worksheets.Count
 With Worksheets(i).UsedRange
  strLC = .Cells(.Rows.Count - 1, .Columns.Count).Address
  Set Bereich = .Range("A8:" & strLC)
  Bereich.Copy Destination:= _
  Wks.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
 End With
Next i

'Zeilen aufsplitten
    Range("A10:J1500").Select
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlTop
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With

End Sub


Das ist bei mir der Code zum Zusammenfassen mehrerer Tabellenblätter auf eine Seite.
Und folgendes habe ich jetzt benutzt zum Ausfüllen weiterer Felder:

 

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
09.08.2019 14:15:27 Patrick
NotSolved
09.08.2019 14:46:20 Gast71206
NotSolved
Rot Auffüllen der Zellen umzu filtern
 12.08.2019 10:12:03 Patrick
NotSolved
12.08.2019 10:13:00 Gast99598
NotSolved