title image


Smiley Re: nur zählen, wenn ............
Hallo,



versuchs so:

Sub CheckTableCells()

Dim oCell As Cell

Dim oRow As Row

Dim MyRange As Range

Dim leer, such: leer = 0: such = 0

Dim sSuch: sSuch = "Telefon"

'

For Each oRow In Selection.Tables(1).Rows

For Each oCell In oRow.Cells

Set MyRange = oCell.Range

MyRange.End = MyRange.End - 1

'

If Len(MyRange.Text) = 0 Then

leer = leer + 1

ElseIf MyRange.Text = sSuch Then

such = such + 1

End If

Next oCell

Next oRow

'

MsgBox "Telefon wurde " & such & " x gefunden," & vbNewLine _

& leer & " Zellen sind leer."

End Sub

      Hubert



Jedes Betriebsystem hat sein allgegenwärtiges Maskottchen:

MacOS den Apfel,

Linux den Pinguin,

Windows die allgemeinen Schutzverletzungen,

Spotlight User, die vergessen die Wordversion anzugeben.



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: