wie kann ich in VBA auf einfache Art und Weise abfragen, ob der Inhalt einer Zelle = 100 oder ein Vielfaches von 100 ist?
Für Euch bestimmt ein Leichtes. Danke für schnelle Antwort.
Freundliche Grüße
Jürgen
Um in Excel VBA zu überprüfen, ob der Inhalt einer Zelle ein Vielfaches von 100 ist, kannst Du den folgenden einfachen Code verwenden:
Öffne Excel und drücke ALT + F11
, um den VBA-Editor zu öffnen.
Füge ein neues Modul hinzu, indem Du auf "Einfügen" und dann auf "Modul" klickst.
Kopiere den folgenden Code in das Modul:
Sub CheckVielfachesVon100()
Dim Zelle As Range
Set Zelle = ActiveSheet.Range("A1") ' Hier kannst Du die gewünschte Zelle anpassen
If Zelle.Value Mod 100 = 0 Then
MsgBox "Der Inhalt ist ein Vielfaches von 100."
Else
MsgBox "Der Inhalt ist kein Vielfaches von 100."
End If
End Sub
Schließe den VBA-Editor und kehre zu Excel zurück.
Führe das Makro aus, indem Du ALT + F8
drückst, das Makro auswählst und auf "Ausführen" klickst.
Fehler: "Typ nicht übereinstimmend"
Fehler: "Zelle ist leer"
If Not IsEmpty(Zelle) And Zelle.Value Mod 100 = 0 Then
' Deine Logik hier
End If
Wenn Du nicht mit VBA arbeiten möchtest, kannst Du auch Formeln in Excel verwenden, um zu überprüfen, ob ein Wert ein Vielfaches von 100 ist:
In einer Zelle kannst Du die folgende Formel eingeben:
=WENN(A1 Mod 100 = 0; "Vielfaches von 100"; "Nicht Vielfaches von 100")
Diese Formel gibt entweder "Vielfaches von 100" oder "Nicht Vielfaches von 100" zurück, je nachdem, ob die Zahl in Zelle A1 ein Vielfaches von 100 ist.
Hier sind einige Beispielszenarien, die Dir helfen können:
Vielfaches von 30: Wenn Du prüfen möchtest, ob eine Zahl ein Vielfaches von 30 ist, ändere einfach die Zahl im VBA-Code oder in der Formel:
If Zelle.Value Mod 30 = 0 Then
Vielfaches von 60: Ähnlich kannst Du auch für 60 vorgehen, indem Du die Zahl entsprechend anpasst.
Select Case
-Anweisung in VBA, wenn Du mehrere Bedingungen überprüfen möchtest, um Deinen Code übersichtlicher zu gestalten.1. Wie kann ich den Code anpassen, um andere Vielfache zu überprüfen?
Du kannst die Zahl in der Modulo-Berechnung einfach ändern, z.B. If Zelle.Value Mod 30 = 0
für Vielfache von 30.
2. Funktioniert dieser Code in allen Excel-Versionen?
Ja, dieser VBA-Code sollte in den meisten modernen Excel-Versionen funktionieren, solange Du auf den VBA-Editor zugreifen kannst.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen