Home VBA-Beispiele Zellen & Bereiche Zeilen (Einträge) abhängig vom Datum löschen

      Projektanfrage

Projektanfrage über Web Formular   per Online-Formular 
Projektanfrage über E-Mail  Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein!
Projektanfrage per Telefon  +49 (0)151 / 164 55 914
Projektanfrage weitere Informationen  weitere Informationen 

Sie benötigen Hilfe oder Unter-stützung? Nutzen Sie für Ihre Anfrage unser Online-Formular, senden Sie uns eine Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein! oder rufen Sie uns einfach an.

   
      Referenzen 

 Bosch 
  T-Systems
  Hagebau
  Siemens
 Areva  VW
 Haufe-Lexware  British American Tobacco
  nagel group farbe
   

Neue Beiträge  

   
     Programmierung
Excel Auftragsprogrammierung Access Auftragsprogrammierung
Word Auftragsprogrammierung Outlook Auftragsprogrammierung
   
   
   

Projektanfrage

 Sie benötigen eine Auftragsprogrammierung?
 Oder suchen Unterstützung bei der Lösungs-
 findung?

  Nutzen Sie unser Anfrageformular

  Jetzt anrufen unter 0151 / 164 55 914

 Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein! Projektanfrage per Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein! senden

  Weitere Informationen

sitepanel question2

P
r
o
j
e
k
t
a
n
f
r
a
g
e
   

Zellinhalt auf Formel, Zahl, Datum, Fehler oder Text prüfen

 

In diesem Beispiel zeigen wir Ihnen, wie sich ganz einfach ermitteln lässt, welcher Datentyp sich in einer Zelle befindet.

VBA unterscheidet dabei grundsätzlich folgende Inhalts-Typen:

• Formel
• Zahl
• Datum
• Fehler
• Text

Mit Hilfe des folgenden VBA-Codes wird der Inhalt der gerade aktuellen Zelle analysiert und über eine Message-Box ausgegeben:

PublicSub zellinhalt_prüfen()
'prüfen, ob in einer Formel eine Zahl, eine Formeln, ein Datum
'ein Fehler oder Text steht
'geprüft wird die aktive Zelle
If ActiveCell.HasFormula = True Then
 MsgBox "Formel"
 ElseIf IsNumeric(ActiveCell) Then
 MsgBox "Zahl"
 ElseIf IsDate(ActiveCell) Then
 MsgBox "Datum"
 ElseIf IsError(ActiveCell) Then
 MsgBox "Fehler"
 Else: MsgBox "Text"
End If
End Sub

Erfassen Sie die Prozedur in einem leeren Code-Modul.

 

 

   

Relevante Artikel

  • Verbundene Zellen finden

    101023 Das folgende Makro findet alle verbunden Zellen und gibt die Zelladressenin einer MessageBox aus.Sub VerbundeneZellen_Adressen()'Die Zelladressen aller verbundenen Zellen werden...

  • Spaltenbuchstabe oder Spaltennummer ermitteln

    In manchen Situationen kann es sinnvoll oder notwendig sein, dass aus einer Spaltennummer der Spaltenbuchstabe ermittelt wird oder dass umgekehrt aus einem Spaltenbuchstaben die Spaltennummer...

  • Anzahl der markierten Zeilen ermitteln

    101068 Wenn Sie wissen möchten, wieviele Zeilen gerade markiert sind, dann hilft Ihnen diesesMakro weiter. Die Anzahl der Zeilen wird in einer MsgBox ausgegeben.  Es muss nicht die gesamte Zeile...

  • Konvertieren eines mehrzeiligen Daten-Blocks zu einem konstistenten Datensatz

    In diesem Beispiel zeigen wir Ihnen, wie sich ein nicht konsistenter Datenblock in einen kosistenten Datensatz konvertieren lässt. Die folgende Abbildung zeigt die Ausgangssituation, also den...

  • Daten direkt bei Eingabe ersetzen

    In diesem Beispiel zeigen wir, eine Alternative Methode zur AutoKorrektur-Option um Daten direkt bei der Eingabe ersetzen zu lassen. Sehr wir uns aber zunächst die integrierte AutoKorrektur-Option und...

   
Cookies erleichtern die Bereitstellung unserer Dienste. Mit der Bestätigung erklären Sie sich mit der Verwendung von Cookies auf Excel-Inside Solutions einverstanden.
Weitere Informationen Ok