Offset mit verborgenen Zeilen

Computer: Software & Programmierung Office Software
1

Hallo

Ich möchte die Offset Funktion nutzen und mir anzeigen lassen, ob die Zeile unter A1 leer ist. Falls ja möchte ich eine Msgbox mit Leer anzeigen lassen. Soweit kein Problem… nur funktioniert das Ganze mit nicht, wenn man Zeilen ausgeblendet sind.

Hier mein Ansatz:

If Cells(1, 1).Offset(1, 0) = "" Then
 MsgBox "Leer"
End If

Gruss
Flexo

2

Ich möchte die Offset Funktion nutzen und mir anzeigen lassen,
ob die Zeile unter A1 leer ist. Falls ja möchte ich eine
Msgbox mit Leer anzeigen lassen. Soweit kein Problem… nur
funktioniert das Ganze mit nicht, wenn man Zeilen ausgeblendet
sind.

Hallo Flexo,

meinst du Zeile oder Zelle?

Davon abgesehen, m.E. macht es für Offset keinen Unterschied ob da Zeilen/Spalten ausgeblendet sind.

Gruß
Reinhard

3

Hi Reinhard

meinst du Zeile oder Zelle?

Zelle

Davon abgesehen, m.E. macht es für Offset keinen Unterschied
ob da Zeilen/Spalten ausgeblendet sind.

Habe mir anzeigen lassen, was unter A1 steht… natürlich mit Offset.
Angezeigt wurde der Wert aus A2, obwohl ausgeblendet.

Gruss
Flexo

4

nächsten sichtbaren Wert einer Spalte auswerten

Davon abgesehen, m.E. macht es für Offset keinen Unterschied
ob da Zeilen/Spalten ausgeblendet sind.

Habe mir anzeigen lassen, was unter A1 steht… natürlich mit
Offset.
Angezeigt wurde der Wert aus A2, obwohl ausgeblendet.

Hallo Flexo,

zwei Wege:

Sub tt()
Dim Zelle As Range
With Range("A2").Resize(Rows.Count - 1, 1)
 Set Zelle = .SpecialCells(xlCellTypeVisible).Cells(1, 1)
 If Zelle.Value = "" Then MsgBox Zelle.Address(0, 0) & " ist leer"
End With
End Sub
'
Sub tt2()
If Range("A2:A1000").SpecialCells(xlCellTypeVisible).Cells(1, 1) = "" Then
 MsgBox "leer"
End If
End Sub

Gruß
Reinhard