Thema Datum  Von Nutzer Rating
Antwort
07.03.2018 15:11:24 Thomas
NotSolved
08.03.2018 01:30:05 Werner
NotSolved
Rot Änderung
 08.03.2018 04:30:04 Werner
NotSolved
08.03.2018 13:31:00 Thomas
NotSolved
08.03.2018 16:16:56 Werner
NotSolved
09.03.2018 10:18:40 Werner
NotSolved
11.03.2018 18:54:55 Thomas
NotSolved
11.03.2018 21:18:14 Werner
NotSolved
Rot Re:
 11.03.2018 21:20:06 Thomas
NotSolved
12.03.2018 15:23:50 Thomas
Solved

Ansicht des Beitrags:
Von:
Werner		 Datum:
08.03.2018 04:30:04		 Views:
589		 Rating:
     
Antwort:
  Ja
Thema:
Änderung

Hallo Thomas,

mir ist noch was aufgefallen.

Diese Zeile hier:

wbZiel.Sheets("data").Rows("2:10000").Delete

durch das hier bitte ersetzen:

With wbZiel.Sheets("data")
    If .Cells(2, 1) <> "" Then
        .Range(.Cells(2, 1), .Cells(.Cells(.Rows.Count, 1).End(xlUp).Row, 1)).ClearContents
    End If
End With

Sonst würde ja auch die Liste mit den Suchbegriffen gelöscht werden.

Das Makro kopiert die einzelnen Spalten aus der Quelltabelle ab A2 der Zieltabelle untereinander. Wenn die nebeneinander in die Zieltabelle sollen, dann müßte man das Makro nochmal anpassen.

 

Gruß werner

 

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
07.03.2018 15:11:24 Thomas
NotSolved
08.03.2018 01:30:05 Werner
NotSolved
Rot Änderung
 08.03.2018 04:30:04 Werner
NotSolved
08.03.2018 13:31:00 Thomas
NotSolved
08.03.2018 16:16:56 Werner
NotSolved
09.03.2018 10:18:40 Werner
NotSolved
11.03.2018 18:54:55 Thomas
NotSolved
11.03.2018 21:18:14 Werner
NotSolved
Rot Re:
 11.03.2018 21:20:06 Thomas
NotSolved
12.03.2018 15:23:50 Thomas
Solved