Thema Datum  Von Nutzer Rating
Antwort
21.03.2017 23:12:04 megawunk
NotSolved
22.03.2017 06:26:02 Kai
NotSolved
27.03.2017 15:39:59 megawunk
NotSolved
27.03.2017 21:06:25 Kai
*****
Solved
Rot Zeilen aus mehreren Tabellenblättern in ein neues Tabellenblatt kopieren
 28.03.2017 09:42:38 megawunk
Solved
22.03.2017 06:48:34 GraFri
NotSolved
27.03.2017 15:33:02 megawunk
NotSolved
22.03.2017 11:37:46 megawunk
NotSolved
28.03.2017 13:10:51 GraFri
NotSolved

Ansicht des Beitrags:
Von:
megawunk		 Datum:
28.03.2017 09:42:38		 Views:
793		 Rating:
     
Antwort:
 Nein
Thema:
Zeilen aus mehreren Tabellenblättern in ein neues Tabellenblatt kopieren

Hallo Kai,

da hatte ich mich wohl etwas falsch ausgedrückt. Ich meinte Zeilen ,welche komplett leer sind sollten nicht mit kopiert werden, nicht nur die in Spalte L.

Habe jetzt die beiden fett markierten Zeilen ausgeklammert und jetzt funktioniert es.

?
1
2
3
4
5
6
7
8
9
'Prüfen, ob der Wert in Spalte L (12) der aktuellen Zeile leer ist
 <strong>If Not .Cells(j, 12).Value = "" Then</strong>
 'aktuelle Zeile kopieren
     Set rngSource = .Range(.Cells(j, 1), .Cells(j, 12))
 'Einträge kopieren und am Ende in Sheet("11") einfügen
     rngSource.Copy Destination:=wsTarget.Cells(lrTarget + 1, 1)
     lrTarget = wsTarget.Cells(Rows.Count, 1).End(xlUp).Row
 <strong>End If</strong>

 

 

Danke für deine Hilfe!

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
21.03.2017 23:12:04 megawunk
NotSolved
22.03.2017 06:26:02 Kai
NotSolved
27.03.2017 15:39:59 megawunk
NotSolved
27.03.2017 21:06:25 Kai
*****
Solved
Rot Zeilen aus mehreren Tabellenblättern in ein neues Tabellenblatt kopieren
 28.03.2017 09:42:38 megawunk
Solved
22.03.2017 06:48:34 GraFri
NotSolved
27.03.2017 15:33:02 megawunk
NotSolved
22.03.2017 11:37:46 megawunk
NotSolved
28.03.2017 13:10:51 GraFri
NotSolved