Thema Datum  Von Nutzer Rating
Antwort
05.02.2018 16:35:34 Gast37461
NotSolved
05.02.2018 17:01:47 RPP63
Solved
Rot Bereich auf Leere überprüfen
 05.02.2018 17:27:35 Werner
NotSolved
05.02.2018 17:30:30 RPP63
NotSolved
06.02.2018 10:03:13 Gast86442
NotSolved

Ansicht des Beitrags:
Von:
Werner		 Datum:
05.02.2018 17:27:35		 Views:
576		 Rating:
     
Antwort:
  Ja
Thema:
Bereich auf Leere überprüfen

Hallo Peter,

wozu du das brauchst kannst nur du wissen.

Option Explicit

Public Sub belegte_Zellen()
Dim raZelle As Range, strBelegt As String

With Worksheets("Tabelle2") 'Blattname und Bereich anpassen
    For Each raZelle In .Range("A1:A10")
        If raZelle.Value <> "" Then
            If strBelegt = "" Then
                strBelegt = strBelegt & "Zelle  " & raZelle.Address(0, 0)
            Else
                strBelegt = strBelegt & vbLf & "Zelle  " & raZelle.Address(0, 0)
            End If
        End If
    Next raZelle
End With

If strBelegt = "" Then
    MsgBox "Alle Zellen im Bereich sind leer."
Else
    strBelegt = "Werte sind in folgenden Zellen:" _
    & vbLf & vbLf & strBelegt
    MsgBox strBelegt
End If
End Sub

 

Gruß Werner

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • 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
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • 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

Thema Datum  Von Nutzer Rating
Antwort
05.02.2018 16:35:34 Gast37461
NotSolved
05.02.2018 17:01:47 RPP63
Solved
Rot Bereich auf Leere überprüfen
 05.02.2018 17:27:35 Werner
NotSolved
05.02.2018 17:30:30 RPP63
NotSolved
06.02.2018 10:03:13 Gast86442
NotSolved