VB: Zeile zusätzlich zur aktuellen Selektion selektieren

11/12/2008 - 10:30 von Okko | Report spam
Hallo!

Folgendens Beispiel:
Immer wenn die Zelle "aktuelle_Zeile/Spalte E" leer ist, soll die aktuelle
Zeile zusàtzlich zur bereits vorhandenen Selektion selektiert werden.

Dim zeile As Long
zeile = 1
Do Until Cells(zeile, 6) = "SUM OF HAMBURG"
If Cells(zeile, 5) = "" Then
' zusàtzliche Selektion der aktuellen Zeile zu der aktuellen Selektion
End If
zeile = zeile + 1
Loop

Danke im voraus.
Okko
 

Lesen sie die antworten

#1 stefan onken
11/12/2008 - 11:02 | Warnen spam
On 11 Dez., 10:30, Okko wrote:
Hallo!

Folgendens Beispiel:
Immer wenn die Zelle "aktuelle_Zeile/Spalte E" leer ist, soll die aktuelle
Zeile zusàtzlich zur bereits vorhandenen Selektion selektiert werden.

    Dim zeile As Long
    zeile = 1
    Do Until Cells(zeile, 6) = "SUM OF HAMBURG"
        If Cells(zeile, 5) = "" Then
' zusàtzliche Selektion der aktuellen Zeile zu der aktuellen Selektion
        End If
        zeile = zeile + 1
    Loop

Danke im voraus.
Okko



hallo Okko,
2 Varianten zum testen:

Sub ZeilenMarkieren1()
Dim zeilen As Range
zeile = 1
Do Until Cells(zeile, 6) = "SUM OF HAMBURG"
If Cells(zeile, 5) = "" Then
If zeilen Is Nothing Then
Set zeilen = Cells(zeile, 5).EntireRow
Else
Set zeilen = Application.Union _
(zeilen, Cells(zeile, 5).EntireRow)
End If
End If
zeile = zeile + 1
Loop
zeilen.Select
End Sub


Sub ZeilenMarkieren2()
r = Range("F:F").Find("SUM OF HAMBURG").Row - 1
Range("E1:E" & r).SpecialCells _
(xlCellTypeBlanks).EntireRow.Select
End Sub


Gruß
stefan

Ähnliche fragen