---

Hallo,

ich brauche einen VBA-Befehl der alle gefüllten Zellen in einer Spalte automatisch Markiert.

Ich hoffe mir kann jemand helfen.

MfG Robert

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Robert,

also ich würde mit einer Schleife die Inhalte der Zellen in der Spalte einzeln prüfen. Mit dem Ergebnis dann markieren.
Wenn natürlich leere Felder dazwischen sind weiß ich's auch nicht.

Code:
Sub Markieren()
  Dim Z As Integer
  Dim I As String
  Z = 1
  Do
    I = Range("C" & Z).Value
    If I = "" Then
      Exit Do
    End If
    Z = Z + 1
  Loop
  Range("C1:C" & Z - 1).Select
End Sub

HTH

------------------
Gruß Wilfried 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Wilfried,

in der Letzten Zeile zeigt er mir immer einen Fehler an: Die Methode Range für das Objekt_Global ist fehgeschlagen. und ich weis nicht wie ich das gegbekomme.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

nen Befehl gibts nicht, alternativ vielleicht mit Autofilter auf 'Nichtleere',
ansonsten nur mit Schleifchen

Code:

---

Sub zzz()
  Dim i As Long, cell As Range
  For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
    If Cells(i, 1) <> "" Then
      If cell Is Nothing Then Set cell = Cells(i, 1) _
      Else Set cell = Union(cell, Cells(i, 1))
    End If
  Next
  cell.Select
End Sub

---

Gruss Nancy
--
ps: hier jibbet auch ein Excel-Forum ;-) 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von startrek:
ansonsten nur mit Schleifchen

---

tztz, man lernt wohl nie aus - geht auch ohne! ;-)

Gruss Nancy

Code:

---

Sub test()
  With ActiveSheet.Columns(1)
    .ColumnDifferences(.SpecialCells(xlCellTypeBlanks)).Select
  End With
End Sub

---

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP