Thema Datum  Von Nutzer Rating
Antwort
28.01.2016 09:45:11 Dave_
NotSolved
28.01.2016 11:41:58 Gast99406
NotSolved
28.01.2016 11:53:59 Gast71532
NotSolved
28.01.2016 12:52:29 Dave_
NotSolved
28.01.2016 16:24:57 Gast4487
NotSolved
28.01.2016 16:38:54 Gast37418
NotSolved
28.01.2016 17:07:41 Dave_
NotSolved
29.01.2016 07:23:23 Dave_
NotSolved
29.01.2016 09:21:34 Dave_
NotSolved
30.01.2016 14:06:21 Gast74459
NotSolved
01.02.2016 08:24:43 Dave_
NotSolved
01.02.2016 09:49:52 Dave_
NotSolved
Rot Aus mehreren Tabellen die Gesamtliste befüllen
01.02.2016 19:44:38 Gast29394
NotSolved
02.02.2016 07:19:43 Dave_
NotSolved
02.02.2016 10:15:23 Gast65604
NotSolved
02.02.2016 10:30:36 Dave_
Solved

Ansicht des Beitrags:
Von:
Gast29394		 Datum:
01.02.2016 19:44:38		 Views:
1334		 Rating:
     
Antwort:
  Ja
Thema:
Aus mehreren Tabellen die Gesamtliste befüllen

Hallo! abe den Code nochmal umgestellt. Nun sollten wirklich nur die gefüllten Zeilen ausgewerte und ggf. kopiert werden. Sollte jetzt etwas schneller laufen. :-) VG

 

Option Explicit
 
Sub einfügen()
'keine Prüfung, ob es so viele Blätter überhaupt gibt
Dim ende As Long
Dim i As Long
Dim j As Long
Dim zeile As Long
Dim ziel
Dim eintrag As Long
Dim test

Application.ScreenUpdating = False
 
Set ziel = Worksheets(1)
 
eintrag = 1 'ab da wird im Blatt 2 eingetragen
 
For i = 5 To 23  'Blätter 5 bis 23
zeile = 10 'ab da wird der Filter ausgelesen. in Zeile 9 war der Filtrer gesetzt

ende = 0
For j = 1 To 10
test = Worksheets(i).Cells(Rows.Count, j).End(xlUp).Row
If test > ende Then ende = test
Next

For j = zeile To ende
        If Worksheets(i).Rows(zeile).Hidden <> True Then
        Worksheets(i).Range(Worksheets(i).Cells(zeile, 1), Worksheets(i).Cells(zeile, 10)).Copy ziel.Cells(eintrag, 1)
        ziel.Cells(eintrag, 11) = Worksheets(i).Name
        eintrag = eintrag + 1
        End If
Next j
  
eintrag = eintrag + 1
Next i
 
Application.ScreenUpdating = True
 
Set ziel = Nothing
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
28.01.2016 09:45:11 Dave_
NotSolved
28.01.2016 11:41:58 Gast99406
NotSolved
28.01.2016 11:53:59 Gast71532
NotSolved
28.01.2016 12:52:29 Dave_
NotSolved
28.01.2016 16:24:57 Gast4487
NotSolved
28.01.2016 16:38:54 Gast37418
NotSolved
28.01.2016 17:07:41 Dave_
NotSolved
29.01.2016 07:23:23 Dave_
NotSolved
29.01.2016 09:21:34 Dave_
NotSolved
30.01.2016 14:06:21 Gast74459
NotSolved
01.02.2016 08:24:43 Dave_
NotSolved
01.02.2016 09:49:52 Dave_
NotSolved
Rot Aus mehreren Tabellen die Gesamtliste befüllen
01.02.2016 19:44:38 Gast29394
NotSolved
02.02.2016 07:19:43 Dave_
NotSolved
02.02.2016 10:15:23 Gast65604
NotSolved
02.02.2016 10:30:36 Dave_
Solved