Thema Datum  Von Nutzer Rating
Antwort
24.07.2019 16:00:00 Totti
NotSolved
Blau Spalten durchsuchen und Zeilen befüllen
 24.07.2019 16:35:36 Gast62930
NotSolved
25.07.2019 09:51:47 Gast1876
NotSolved

Ansicht des Beitrags:
Von:
Gast62930		 Datum:
24.07.2019 16:35:36		 Views:
411		 Rating:
     
Antwort:
  Ja
Thema:
Spalten durchsuchen und Zeilen befüllen		 
Sub Druckliste()
'
Dim rngO As Range                   'Druckliste Startzelle


   Set rngO = Sheets("DRUCKLISTE").Range("O2")
   '
   Do While rngO.Value <> ""        'nicht leer
      Range(rngO, rngO.End(xlToRight)).Copy
      Sheets("DRUCKLISTE FINAL").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Transpose:=True
      Set rngO = rngO.Offset(1)     'nach unten
   Loop
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
24.07.2019 16:00:00 Totti
NotSolved
Blau Spalten durchsuchen und Zeilen befüllen
 24.07.2019 16:35:36 Gast62930
NotSolved
25.07.2019 09:51:47 Gast1876
NotSolved