Thema Datum  Von Nutzer Rating
Antwort
26.01.2011 18:27:26 homer
NotSolved
Blau Excel Prüfen lassen ob die Zelle leer ist
 26.01.2011 19:08:49 Severus
Solved

Ansicht des Beitrags:
Von:
Severus		 Datum:
26.01.2011 19:08:49		 Views:
922		 Rating:
     
Antwort:
 Nein
Thema:
Excel Prüfen lassen ob die Zelle leer ist

Ich bin mir ja nicht so sicher ob sich ein "homer" mit VBA befassen sollte...

Laß einfach auf die letzte beschriebene Zelle in Spalte A prüfen:

Dim freieZeile As Long

With Sheets("Telefonliste_Erledigt)
     freieZeile = .Cells(.Cells.Rows.Count, 1).End(xlUp).Row + 1
End With

und verwende diesen Wert in Deinem Kopierbefehl.

 

Dim freieZeile As Long
Dim letzteZeile As Long

With Sheets("Telefonliste_Erledigt)
     freieZeile = .Cells(.Cells.Rows.Count, 1).End(xlUp).Row + 1
End With


With Sheets("Telefonliste_Aktuell)
     letzteZeile = .Cells(.Cells.Rows.Count, 1).End(xlUp).Row
End With

For i = 1 To letzteZeile
ergo = Range("J" & i)
     If ergo = 1 Then
        Worksheets("Telefonliste_Aktuell").Rows(i).Copy _
        Destination:=Worksheets("Telefonliste_Erledigt").Rows(freieZeile)
        Worksheets("Telefonliste_Aktuell").Rows(i).Delete
        freieZeile = freieZeile + 1
     End If
Next i
End Sub

 

Severus

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
26.01.2011 18:27:26 homer
NotSolved
Blau Excel Prüfen lassen ob die Zelle leer ist
 26.01.2011 19:08:49 Severus
Solved