Thema Datum  Von Nutzer Rating
Antwort
30.08.2017 11:33:32 Jovo
NotSolved
30.08.2017 14:07:22 Gast70117
NotSolved
30.08.2017 14:47:31 Jovo
NotSolved
Blau Schleife
 30.08.2017 15:40:28 Gast70117
NotSolved
01.09.2017 08:33:32 Jovo
NotSolved
01.09.2017 08:33:33 Jovo
NotSolved
01.09.2017 08:40:09 Jovo
NotSolved
01.09.2017 13:46:39 Gast70117
*****
NotSolved
01.09.2017 14:01:32 Jovo
NotSolved
01.09.2017 14:06:07 Jovo
NotSolved
01.09.2017 14:31:28 Jovo
NotSolved
Blau Uff
 01.09.2017 18:07:47 Gast70117
NotSolved
Rot Uff
 02.09.2017 16:49:21 Jovo
NotSolved
02.09.2017 17:57:43 Gast70117
NotSolved
03.09.2017 13:47:22 Jovo
NotSolved

Ansicht des Beitrags:
Von:
Gast70117		 Datum:
30.08.2017 15:40:28		 Views:
710		 Rating:
     
Antwort:
  Ja
Thema:
Schleife

Wie - soll eine While-Schleife (Abbruchbedingung?) eine ganze Spalte  auf leere Zellen prüfen?

Egal

Sub Test()
Dim rngD As Range, rngA As Range, rngZ As Range

   With Workbooks(2).Sheets(1).Columns(4)
      Set rngD = .ColumnDifferences(.Cells(.Cells.Count))
      For Each rngA In rngD.Areas
         With Workbooks(1).Sheets(1).Columns(1)
            Set rngZ = .Cells(.Cells.Count).End(xlUp)
         End With
         rngA.Copy rngZ
      Next rngA
   End With
   
End Sub

PS: ' Erst die excel-Datei1, danch die Excel-Datei2 geöffnet, sonst muss ich schon wieder raten ;-------

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
30.08.2017 11:33:32 Jovo
NotSolved
30.08.2017 14:07:22 Gast70117
NotSolved
30.08.2017 14:47:31 Jovo
NotSolved
Blau Schleife
 30.08.2017 15:40:28 Gast70117
NotSolved
01.09.2017 08:33:32 Jovo
NotSolved
01.09.2017 08:33:33 Jovo
NotSolved
01.09.2017 08:40:09 Jovo
NotSolved
01.09.2017 13:46:39 Gast70117
*****
NotSolved
01.09.2017 14:01:32 Jovo
NotSolved
01.09.2017 14:06:07 Jovo
NotSolved
01.09.2017 14:31:28 Jovo
NotSolved
Blau Uff
 01.09.2017 18:07:47 Gast70117
NotSolved
Rot Uff
 02.09.2017 16:49:21 Jovo
NotSolved
02.09.2017 17:57:43 Gast70117
NotSolved
03.09.2017 13:47:22 Jovo
NotSolved