Thema Datum  Von Nutzer Rating
Antwort
06.09.2019 10:12:36 Christoph
NotSolved
Blau Schleife zur Abfrage von Zellinhalten
 06.09.2019 11:14:13 Torsten
NotSolved
06.09.2019 11:16:09 Torsten
NotSolved
11.09.2019 09:27:32 Torsten
NotSolved

Ansicht des Beitrags:
Von:
Torsten		 Datum:
06.09.2019 11:14:13		 Views:
417		 Rating:
     
Antwort:
  Ja
Thema:
Schleife zur Abfrage von Zellinhalten

Hallo,

versuch mal:

Private Sub CommandButton1_Click()

Dim zeile, spalte As Integer
Sheets("Database ACT").Select
spalte = 1
For zeile = 4 To 2000
    If Cells(zeile, spalte).value = "" Then
        Cells(zeile, spalte) = Cells(zeile, spalte).Offset(-1, 0)
        zeile = zeile + 1
    End If
Next zeile
 
End Sub

Gruss Torsten

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
06.09.2019 10:12:36 Christoph
NotSolved
Blau Schleife zur Abfrage von Zellinhalten
 06.09.2019 11:14:13 Torsten
NotSolved
06.09.2019 11:16:09 Torsten
NotSolved
11.09.2019 09:27:32 Torsten
NotSolved