Thema Datum  Von Nutzer Rating
Antwort
17.12.2014 11:00:30 Tim O.
NotSolved
Blau Wenn Zelle gefüllt, dann kopieren
 17.12.2014 11:08:19 Gast1822
NotSolved
17.12.2014 15:50:06 Gast11168
NotSolved

Ansicht des Beitrags:
Von:
Gast1822		 Datum:
17.12.2014 11:08:19		 Views:
1040		 Rating:
     
Antwort:
  Ja
Thema:
Wenn Zelle gefüllt, dann kopieren

Hallo nochmal,

 

habe gerade gesehen, dass ich meine erste Version des Makros gepostet habe, die Version hat gar nichts gemacht.

Ich habe deswegen die die Else Bedingung eingeführt, die allerdings ziemlich sonnlos ist, weil sie gar nichts macht. Anders konnte ich es aber erstmal nicht lösen!

Sub zeile_kopieren()

Range("P2").Select

For I = 1 To Range("P2").CurrentRegion.Rows.Count - 1
    If ActiveCell.Value <> " " Then
    ActiveCell.EntireRow.Select
  
        Selection.Copy
   
        Sheets("Tabelle1").Select
        Range("A1").Select
        Selection.Insert Shift:=xlDown
        Sheets("try").Select
    Else
        Selection.Interior.Pattern = xlNone
    End If
ActiveCell.Offset(1, 0).Select 'Befehl um eine weitere Zeile nach unten zu springen
Next
End Sub

 

Gruß

Tim

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
17.12.2014 11:00:30 Tim O.
NotSolved
Blau Wenn Zelle gefüllt, dann kopieren
 17.12.2014 11:08:19 Gast1822
NotSolved
17.12.2014 15:50:06 Gast11168
NotSolved