Excel Ungerade/Gerade VBA?

Ich wüsste gerne wie ich ihn VBA von Excel überprüfen kann ob eine Zahl gerade ist oder eben nicht.

DIe Zellen Formel schaut so aus:

=WENN(UND(ISTGERADE($P$44);D15>0;$P$44>0);D15*2;"")

In VBA hab ich es wie folgt probiert:

If Range("P44") IsEven And Range("D15") > 0 And Range("P44") > 0 Then
Range("U15") = Range("D15") * 2
Else
Range("U15")=""
End If

Aber wie ihr euch denken könnt funktioniert es so nicht

Danke für eure Hilfe im Vorraus

3 Antworten

Vom Beitragsersteller als hilfreich ausgezeichnet

verreisterNutzer

10.01.2021, 14:35

In deinem Code ist "IsEven" nicht mit der richtigen Syntax.

Es geht so:

WorksheetFunction.IsEven(Range("P44"))

"IsEven" ist ansonsten keine VBA-Funktion, daher "WorksheetFunction" davor, und das Argument kommt in Klammern dahinter.

Nur um deinen Code zum Laufen zu bekommen.

Mit Mod ist es aber eleganter, wie @adi120369 geschrieben hat.

adi120369

10.01.2021, 14:13

Also am einfachsten kann man das mit der modulo Funktion testen - also Restwertdivision. Wenn beim Dividieren durch Zwei der Restwert =0 ist, ist die Zahl gerade:

If Zahl Mod 2 = 0 Then Call MsgBox ("eine gerade Zahl", vbInformation)

GutenTag2003

10.01.2021, 14:06

ohne VBA, nur in Excel würde ich das so machen ...

Bild zum Beitrag

... und das Ergebnis mit einer Wenn-Bedingung anzeigen lassen.

Woher ich das weiß:eigene Erfahrung

TAEBoost

Beitragsersteller

10.01.2021, 14:13

Ließt du überhaupt meien Frage ich hab es schon längst kn Ecel gemacht aber ich brauche es für Vba

GutenTag2003

10.01.2021, 14:14

@TAEBoost

Liest Du überhaupt meine Antwort ?

ohne VBA, nur in Excel würde ich das so machen ...

Warum sollte Dich das von einer VBA-Lösung abhalten ?

Ähnliche Beiträge

VBA | UserForm öffnen, sobald Excel-Zelle (die eine Formel enthält) = 2?

Hallo,

Excel-VBA....

ich benötige Hilfe beim Thema UserForm öffnen und ständige Abfrage.

Ich habe eine Zelle mit einer Formel, der Wert, welcher raus kommt soll verglichen werden und bei z.b höher als 2 soll eine User Form geöffnet werden.

Kann mir da wer helfen? Ich bin komplett auf dem Holzweg..

Der Code:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$T$6" Then
If UCase(Target.Value) > 2 Then NewUserForm.Show
End If

End Sub

Devo

...zum Beitrag

Excel VBA if zelle gefüllt then?

Ich hätte eine Frage bzgl. VBA. Ich habe eine Tabelle und möchte, dass wenn ich in der Spalte B etwas eintrage die anderen Zeilen in der eingetragenen Zeile einen Wert erhalten. Ich finde nur keine Funktion, wie ich am besten definieren kann, wenn eine Zelle aus Spalte B bearbeitet wird. Aktuell habe ich folgendes verwendet:

If Not Application.Intersect(Target, Range("C8:C10000")) Is Nothing Then

Aber das ist fehlerhaft, da wenn ich etwas lösche ein Widerspruch entsteht. Ich hoffe ihr könnt mir helfen

...zum Beitrag

EXCEL VBA Frage?

Hallo,

ich habe ein problem mit Excel VBA, unzwar würde ich gerne die Abfrage der Leeren zellen erweitern um ein paar andere zeilen... leider habe ich immer irgendwie ein syntax problem. Kann mir jemand helfen

For Each Zellen_auf_Inhalt_prüfen In Range("B7:J7") __HIER SOLL MEHR ABGEFRAGT WERDEN

If Zellen_auf_Inhalt_prüfen.Value = "" Then

MsgBox "Bitte alle Zellen ausfüllen."

GoTo MacroEnde

End If

Next Zellen_auf_Inhalt_prüfen

...zum Beitrag

in Excel zellensprung definieren?

Hallo,

ich arbeite nun beruflich mit einen Barcodescanner und kann aufgrund des Vertikalen Fortschrittes nicht einfach durchscannen. Ich habe nun versucht mittels VBA eine Reihenfolge zu definieren. A1 B1 A2 B2 A3 B3 USW.

leider hab ich mir anscheinend zu glatt angestellt.

If Target.Cells.Address = "$B$1" Then Range("A2").Select
If Target.Cells.Address = "$B$2" Then Range("A3").Select

so versuchte ich es. Kennt jemand einen Besseren weg bzw einen der mich zumindest an mein Ziel bringt?

...zum Beitrag

Richtig Einfügen in Excel-VBA?

Ich bin mir auch nicht sicher ob ich Richtig in VBA einfüge, der Sub Kopieren funktioniert nicht.

Mein Code:

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("E8")) Is Nothing Then

Cells.EntireRow.Hidden = False

If Range("E8").Value = "Rogo AC" Then

Columns("U:AH").Hidden = True

Columns("U").Hidden = False

ElseIf Range("E8").Value = "Shunt 100A" Then

Columns("U:AH").Hidden = True

Columns("V").Hidden = False

End If

End Sub

-------------------------------------------------------------------------------------------------------------------------------

Sub Kopieren_speichern()

For i = 27 To 37

If Range("AK" & i).Value > 1 Then

Range("M" & i).Value = Range("AK" & i).Value

End If

Next i

End Sub

Danke im Voraus

...zum Beitrag

VBA Intersect Bereich in Bereich überprüfen statt Zelle in Bereich?

Hallo,

wie kann ich mit der Methode Application.Intersect zwei Bereiche miteinander Vergleichen?

Normalerweise kann ich ja z.b. mit :

If Not Application.Intersect(Target, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

Überprüfen ob eine Zelle in einem benannten Bereich ausgewählt oder sontiges ist.

Das klappt mit:

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

leider nur mittelmäßig.

Beispiel:

'''''''''''''''''''''''''''''''''''''1.
Set Bereich = Range("B1:B10")

'Ich markiere Zelle B1 bis B2 

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

'Ergebnis = Keine MsgBox - richtig

'''''''''''''''''''''''''''''''''''''2.
Set Bereich = Range("B1:B10")

'Ich markiere Zelle A1 bis A10  

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

'Ergebnis = MsgBox erscheint - richtig

'''''''''''''''''''''''''''''''''''''3.
Set Bereich = Range("B1:B10")

'Ich markiere Zelle A1 bis B1  

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

'Ergebnis = keine MsgBox - falsch, das soll nicht passieren

'''''''''''''''''''''''''''''''''''''4.
Set Bereich = Range("B1:B10")

'Ich markiere Zelle A1 bis C1  

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

'Ergebnis = keine MsgBox - falsch, das soll nicht passieren

'''''''''''''''''''''''''''''''''''''4.
Set Bereich = Range("B1:B10")

'Ich markiere Zelle B1 bis B15  

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

'Ergebnis = keine MsgBox - falsch, das soll nicht passieren

Wie schaff ich es, dass die MsgBox immer dann auftaucht, wenn mindestens eine Zelle nicht im Bereich ist?
Also der Markierte Bereich MUSS mit jeder Zelle im Definierten Bereich liegen.

Und eine Lösung ohne 'Split' oder Umwege wäre mir lieb, außer es gibt halt keine andere xD

...zum Beitrag

Excel: Variablen in Makros einfügen und in Datenbank pflegen/ändern?

Hallo liebe Community,

ich habe diverse Makros in meiner Excel Datei und ich würde gerne das ganze etwas "smarter" gestalten und eine Art Datenbank mit VBA erstellen, um viele Sachen in der Arbeitsmappe dadurch ändern/pflegen zu können. Externe Leute sollen und müssen dann nicht mehr in die VBA Oberfläche und mühsam das Makro suchen, um dort Pfade oder Zeilen zu ändern, falls sich was ändert.

Meine Frage:

Ist es möglich in ein Makro bei VBA eine Art Variable einzubauen bzw. Pfad, wo Excel z.B. in Tabelle1 in Spalte A1 den Wert/Namen findet?

Beispiel Makro:

Statt Daten123.xlsx soll dann ein Bezug hin, wo Excel in Tabelle1 in A1 den Namen Daten123.xlsx findet. Ist sowas möglich?

Dim sPfad As String
Dim wbQuelle As Workbook
Dim zelle As Range
Dim loletzte As Long

sPfad = "C:\Users\P\Desktop\Dateiordner\Unterordner\Daten123.xlsx"

If Dir(sPfad) <> "" Then

Set wbQuelle = Workbooks.Open(sPfad)

Call Test

loletzte = Cells(Rows.Count, 1).End(xlUp).Row

wbQuelle.Worksheets(1).Range("A7:I" & loletzte).Copy ThisWorkbook.Worksheets(3).Range("B2")

wbQuelle.Close savechanges:=False

End If

...zum Beitrag

Excel VBA: Text aus Inputbox in Zelle ergänzen (nicht überschreiben)

Hallo ihr Lieben Excel-Profis,

ich hab ein kleines Excel-File, welches ich täglich öffne und wo ich zum aktuellen Datum einen Eintrag mache). Das passiert über eine Inputbox. Wenn ich aber das Excel ein zweites Mal öffne und einen neuen Text eingeben, dann überschreibt es mir den alten Text. Ich würde jetzt gerne mein Makro so umbauen, dass ich den Text in die Zelle dazuschreibe. Sub eintragen()

Dim x As Range Dim symptom As String

symptom = InputBox("heutige Symptome:", "In Spalte D", "") If symptom = "" Then Exit Sub With Sheets("Kalender") Set x = .Range("D:D").Find(Date) If x Is Nothing Then MsgBox "Der " & Date & " wurde nicht gefunden!" Else .Cells(x.Row, 6) = symptom End If End With End Sub

Bitte um Unterstützung!

Danke! :-)

...zum Beitrag

Excel aktive Zeile farblich markieren ohne VBA?

Ich habe laut einer Anleitung auf YouTube

Hier ist der Link

Kurzgefasst wird dort in einem bestimmten Bereich eine Bedingte Formatierung gemacht, mit der Formel:

=$A$1=ZEILE()

Hierzu wird noch ein VBA Code gebraucht:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("$A$4:$Q$10000")) Is Nothing Then
Range("$A$1").Value = Target.Row
End If
End Sub

Resultat:
Die Zeile der aktiven Zelle wird nun farblich markiert.

Frage:
Mir ist nun aufgefallen, dass ja jedes mal wenn irgendwo geklickt wird der VBA Code abgespielt wird. Dementsprechend kann man die Vorwärts und Rückwärts Buttons nicht mehr verwenden :(

Dies ist leider sehr unpraktisch. Ich habe in die Zellen etwas eingefügt und wollte dann es rückgängig machen und nicht mal das geht.
Daher die Frage, gibt es hier ein Workaround? Oder eventuell eine ganz andere Lösung ohne VBA?

Danke vorab

...zum Beitrag

Mailversand über Excel - Bestimmte Zeilen/Bereiche durch VBA?

Hallo zusammen,

ich benötige Eure Unterstützung, ich komme nämlich nicht weiter.

Wenn in der Zelle C10 z. B. Erstes-Interview steht, dann sollen, nachdem auf eine Schaltfläche geklickt wird, entsprechende Bereiche/Zellen als E-Mail versendet werden. Leider kann ich aber nicht mehrere Bereiche (die von einander getrennt sind, als eine E-Mail versenden.

Was mach ich falsch?

Vielen Dank vorab.

Mein Code:

Sub Mail_Versand()

Sheets("Template").Select

If Range("C10").Value = "Kaffee-Date" Then

ActiveSheet.Range("B12:D21").Select

End If

If Range("C10").Value = "Erstes-Interview" Then

ActiveSheet.Range("B23:D23,B26:D33").Select

End If

ActiveWorkbook.EnvelopeVisible = True

With ActiveSheet.MailEnvelope

.Item.To = "xxx"

'.Item.cc =

'.Item.bcc =

.Item.Subject = Range("C10").Value & " / Bitte um weitere Bearbeitung"

.Item.Send

End With

End Sub

...zum Beitrag

Excel, Spalte rechts nebenan kopieren?

Hallo, wie kann ich per Excel VBA eine Range (eine Spalte) mit einer Zelle vergleichen und nach einem Match die Zelle direkt rechts neben der Range (eine Spalte) selektieren?

...zum Beitrag

Excel: VBA - Zellen per Button-Klick nacheinander füllen?

Schönen guten Tag,

Ich würde gern in einer Excel-Tabelle eine Spalte nacheinandern (begrenzter Bereich), bei Button-Klick, füllen.

Es sollen auf einer Excel-Oberfläche verschiedene Buttons erstellt werden, die alle die selben Zellen füllen (Bsp: G3 bis O3). Wenn eine Zeile leer ist, soll diese gefüllt werden, wenn die nächste gefüllt ist, soll zur nächsten "leeren" gegangen werden. Dies jedoch nicht sofort für alle, sondern per Mausklick auf einen Button. ButtonA füllt G3 mit "asdf", ButtonB beginnt bei G3 findet dort "nicht leer" und geht auf H3 und schreibt "wasd", erneut ButtonA beginnt bei G3, findet G3 "nicht leer" und H3 "nicht leer" und schreibt in I3 "asdf".

Ich hoffe mein Idee und mein Ansatz ist verschändlich.

Ich habe auch eine Möglichkeit gefunden, jedoch müsste ich den Code für jede weitere Variante anpassen. Kann man daraus eine "einfachere" Schleife generieren? Bin leider noch VBA-Neuling.

Ich danke für die Hilfe! Ich wünsche euch einen schönen Tag!

Grüße

Private Sub CommandButton1_Click()
If Range("G3") = "" Then
    Range("G3").Value = "Test - 1"
Else
    If Range("H3") = "" Then
        Range("H3").Value = "Test - 1"
    Else
        If Range("I3") = "" Then
            Range("I3").Value = "Test - 1"
        Else
            If Range("J3") = "" Then
                Range("J3").Value = "Test - 1"
            Else
                If Range("K3") = "" Then
                    Range("K3").Value = "Test - 1"
                Else
                    If Range("L3") = "" Then
                        Range("L3").Value = "Test - 1"
                    Else
                        If Range("M3") = "" Then
                            Range("M3").Value = "Test - 1"
                        End If
                    End If
                End If
            End If
        End If
    End If
End If

End Sub

...zum Beitrag

Excel Vba in schleife?

ich möchte diese formel in einer schleife ,aslo das es mehrere zellen ausrechnet nicht nur A1 und B1

Sub test()

Worksheets("Tabelle1").Range("C1") = IIf((IsEmpty(Range("A1")) + IsEmpty(Range("B1"))) <> 0, "", (Range("A1") - Range("B1") + 1))

End Sub

...zum Beitrag

Beim ändern einer bestimmten Zelle Makro erneut ausführen?

Hallo,

ich habe folgendes Anliegen: Ich möchte in Excel mit VBA etwas machen. Hier einmal der Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("j10")) Is Nothing Then
    Select Case Range("j10").Value
        Case "manuell"
            Range("s7:u7").ClearContents
        Case "Anfang & Ende"
            Range("s7").Value = Worksheets("PEPStauchung").Range("d2").Value
    End Select
End If
End Sub

Ich möchte, dass, wenn ich in Zelle S6 einen Wert ändere, das ganze erneut durchgeführt wird.

Wie binde ich das ein? Vielen Dank!!!

Syrena

...zum Beitrag

Was möchtest Du wissen?

Deine Frage stellen