Thema Datum  Von Nutzer Rating
Antwort
Rot Schleife zur Abfrage von Zellinhalten
06.09.2019 10:12:36 Christoph
NotSolved
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:
Christoph
Datum:
06.09.2019 10:12:36
Views:
50
Rating: Antwort:
  Ja
Thema:
Schleife zur Abfrage von Zellinhalten

Hallo allerseits,

ich habe eine große Datenbank in Excel, die ich auswerten muss. Dabei stoße ich auf folgendes Problem: Ich möchte, dass mein VBA Code die Range A4-A2000 durchsucht und leere Zellen identifiziert. Wenn eine Zelle leer ist, soll der Zellinhalt der darüberliegenden Zelle in die leere Zelle kopiert werden. Wenn die Zelle schon einen Wert enthält, dann soll er nichts machen und einfach die nächste Zelle auf leer prüfen.

Theoretisch würde das auch manuell gehen - das dauert aber lange. Daher habe ich mir folgenden Code einfallen lassen, der aber nicht funktioniert. Die erste leere Zeile kopiert er noch aber dann nicht mehr. Er geht zwar die einzelnen Zeilen durch aber kopiert nichts mehr. 

 

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 - 1, spalte).Copy
    Cells(zeile, spalte).PasteSpecial
   
    zeile = zeile + 1
 
  End If
Next zeile
 

End Sub

 

 

 

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • 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
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

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