Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1520to1524
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Konsolidieren erst ab 2 Zeile

Konsolidieren erst ab 2 Zeile
26.10.2016 08:12:55
chris58
Hallo !
Ich habe diesen Code gefunden, bis auf die Tatsache, das er ab der ersten Zeile konsolidiert passt er hervorragend.
Kann mir bitte einer sagen, wie ich es anstelle, damit der Code nur ab der zweiten Zeile die Daten aus den einzelnen Tabellenblättern zusammenfasst.
Danke
Sub JoinSheets()
Sheets("Ausdruck").Cells.ClearContents
Dim wksSrc As Worksheet, wksDst As Worksheet
Dim lngLR As Long
Set wksDst = Sheets("Ausdruck")
For Each wksSrc In ThisWorkbook.Worksheets
lngLR = wksDst.Cells(wksDst.Rows.Count, 1).End(xlUp).Row
If wksSrc.Name  wksDst.Name Then
wksDst.Cells(lngLR + 1, 1) = wksSrc.Name
wksDst.Cells(lngLR + 1, 1).Font.Size = 24
wksSrc.UsedRange.Copy wksDst.Cells(lngLR + 2, 1)
End If
Next
Set wksDst = Nothing
End Sub

17
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Konsolidieren erst ab 2 Zeile
26.10.2016 09:48:07
baschti007
Hey Ho Soo
Gruß basti
Sub JoinSheets()
Sheets("Ausdruck").Cells.ClearContents
Dim wksSrc As Worksheet, wksDst As Worksheet
Dim lngLR As Long
Set wksDst = Sheets("Ausdruck")
For Each wksSrc In ThisWorkbook.Worksheets
lngLR = wksDst.Cells(wksDst.Rows.Count, 1).End(xlUp).Row
If wksSrc.Name  wksDst.Name Then
wksDst.Cells(lngLR + 1, 1) = wksSrc.Name
wksDst.Cells(lngLR + 1, 1).Font.Size = 24
With wksSrc.UsedRange
.Offset(1, 0).Resize(.Rows.Count - 1, .Columns.Count).Copy wksDst.Cells(lngLR + 2, 1)
End With
End If
Next
Set wksDst = Nothing
End Sub

Anzeige
AW: Konsolidieren erst ab 2 Zeile
26.10.2016 10:11:38
chris58
Hallo basti !
Danke, das passt fast perfekt.
Ich habe in dem Tabellenblatt "Ausdruck" jedoch in der ersten Zeile, Begriffe stehen, die sollten erhalten bleiben. Die löscht das Makro jedoch immer und ich muß diese immer neu setzen. Kannst mir da noch helfen, das die erhalten bleiben.
Danke chris
AW: Konsolidieren erst ab 2 Zeile
26.10.2016 10:20:19
baschti007
Dann guck mal ob das geht
Gruß Basti
Sub JoinSheets()
Dim wksSrc As Worksheet, wksDst As Worksheet
Dim lngLR As Long
Set wksDst = Sheets("Ausdruck")
With wksDst.UsedRange
.Offset(1, 0).Resize(.Rows.Count - 1, .Columns.Count).ClearContents
End With
For Each wksSrc In ThisWorkbook.Worksheets
lngLR = wksDst.Cells(wksDst.Rows.Count, 1).End(xlUp).Row
If wksSrc.Name  wksDst.Name Then
wksDst.Cells(lngLR + 1, 1) = wksSrc.Name
wksDst.Cells(lngLR + 1, 1).Font.Size = 24
With wksSrc.UsedRange
.Offset(1, 0).Resize(.Rows.Count - 1, .Columns.Count).Copy wksDst.Cells(lngLR + 2, 1)
End With
End If
Next
Set wksDst = Nothing
End Sub

Anzeige
AW: Konsolidieren erst ab 2 Zeile
26.10.2016 10:26:06
chris58
Hallo !
Da kommt ein Fehler in der Zeile:
.Offset(1, 0).Resize(.Rows.Count - 1, .Columns.Count).ClearContents
chris
AW: Konsolidieren erst ab 2 Zeile
26.10.2016 10:28:45
baschti007
Du hast bestimmt nich den ganzen code ersetzt =D das Set steht bei dir bestimmt nicht vor dem clearContents
Gruß BAsti
AW: Konsolidieren erst ab 2 Zeile
26.10.2016 10:24:09
Rudi
Hallo,
Sub JoinSheets()
Dim wksSrc As Worksheet, wksDst As Worksheet
Dim lngLR As Long
Set wksDst = Sheets("Ausdruck")
With wksDst.Cells(1, 1).CurrentRegion
Intersect(.Offset(0), .Offset(1)).ClearContents
End With
For Each wksSrc In ThisWorkbook.Worksheets
lngLR = wksDst.Cells(wksDst.Rows.Count, 1).End(xlUp).Row
If wksSrc.Name  wksDst.Name Then
wksDst.Cells(lngLR + 1, 1) = wksSrc.Name
wksDst.Cells(lngLR + 1, 1).Font.Size = 24
With wksSrc.Cells(1, 1).CurrentRegion
Intersect(.Offset(0), .Offset(1)).Copy wksDst.Cells(lngLR + 2, 1)
End With
End If
Next
Set wksDst = Nothing
End Sub
Gruß
Rudi
Anzeige
AW: Konsolidieren erst ab 2 Zeile
26.10.2016 10:34:11
chris58
Hallo !
Nochmals ich........bekomme den Fehler noch immer in der Zeile
Intersect(.Offset(0), .Offset(1)).ClearContents
chris
AW: Konsolidieren erst ab 2 Zeile
26.10.2016 11:45:38
chris58
Hallo !
Mir ist das nun klar, warum das nicht ging. Wenn in den vohergehnden Spalten nichts steht, dann übernimmt der Code den neuen Eintrag nicht. Wenn ich dann die Inhalte auf dem "Ausdruck" lösche, dann kommt der Fehler.
lg chris
AW: Konsolidieren erst ab 2 Zeile
26.10.2016 12:37:41
baschti007
Nun ja wenn es dann läuft ist ja gut
Gruß basti
AW: Konsolidieren erst ab 2 Zeile
26.10.2016 12:38:44
Rudi
Hallo,
Sub JoinSheets()
Dim wksSrc As Worksheet, wksDst As Worksheet
Dim lngLR As Long
Set wksDst = Sheets("Ausdruck")
wksDst.Cells(1, 1).CurrentRegion.Offset(1).ClearContents
For Each wksSrc In ThisWorkbook.Worksheets
lngLR = wksDst.Cells(wksDst.Rows.Count, 1).End(xlUp).Row
If wksSrc.Name  wksDst.Name Then
wksDst.Cells(lngLR + 1, 1) = wksSrc.Name
wksDst.Cells(lngLR + 1, 1).Font.Size = 24
With wksSrc.Cells(1, 1).CurrentRegion
Intersect(.Offset(0), .Offset(1)).Copy wksDst.Cells(lngLR + 2, 1)
End With
End If
Next
Set wksDst = Nothing
End Sub
Gruß
Rudi
Anzeige
AW: Konsolidieren erst ab 2 Zeile
26.10.2016 13:25:30
chris58
Hallo Rudi !
Danke, nun läuft das einwandfrei. Auch danke an basti.
Noch einen schönen Sonntag.
chris
Sprung in letzte ausgefüllte Zeile A
26.10.2016 15:42:29
chris58
Hallo !
Ich melde mich nochmal. Ich würde Euch bitten mir zu helfen, wie ich mit diesem Code bzw. der Userform bei Auswahl eines Tabellenblattes in die letzte ausgefüllte A-Zeile zu springen.
Probier hier herum, habe gesucht, nichts passendes gefunden.
Danke
chris
Private Sub ComboBox1_Change()
Worksheets(ComboBox1.Value).Activate
End Sub

Private Sub UserForm_Activate()
UserForm1.Top = 25
UserForm1.Left = 550
Dim x&
Me.ComboBox1.Clear
For x = 1 To Worksheets.Count
ComboBox1.AddItem Worksheets(x).Name
Next
End Sub

Anzeige
AW: Sprung in letzte ausgefüllte Zeile A
26.10.2016 16:54:49
Hajo_Zi
die letzte Zeile ermittelst Du mit
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)

AW: Sprung in letzte ausgefüllte Zeile A
26.10.2016 23:12:47
chris58
Hallo !
Wo bau ich das in den Code ein.....
Ich habe etliches ausprobiert, ohne Erfolg.
chris
AW: Sprung in letzte ausgefüllte Zeile A
27.10.2016 07:43:20
baschti007
Hey Ho So
Gruß Basti
Private Sub ComboBox1_Change()
With Worksheets(ComboBox1.Value)
.Activate
.Range("A" & IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(.Rows.Count, 1).End(xlUp).Row, .Rows. _
Count)).Select
End With
End Sub

AW: Sprung in letzte ausgefüllte Zeile A
27.10.2016 16:04:38
chris58
Hallo Basti !
Danke, bin nun zufrieden.
chris
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige