Office: Frage zu einem Makro

Hallo zusammen,

ich habe eine Frage zu einem Makro in Excel:

Wenn ich in Spalte A in Zeile 1 z.B. einen Wert schreibe soll die Zeile überprüft werden und in die Zeile von Spalte B geschrieben werden, ob der Wert kleiner, gleich oder grßer als null ist.

Mein jetziges Makro muss erst gestartet werden. Wie bekomme ich das hin.

Mein jetziger Code sieht so aus:

Code:

Sub test()

Range("b3").Select
If [b3] = 0 Then
Range("b5").Select
ActiveCell.Value = "Der Wert ist Null"
ElseIf [b3] < 0 Then
Range("b5").Select
ActiveCell.Value = "Der Wert ist kleiner als null"
Else
Range("b5").Select
ActiveCell.Value = "Der Wert ist größer als null"
End If

End Sub

Vielleicht kann man den Code noch optimieren :)

Wäre nett, wenn mir da jemand helfen könnte.

Viele Grüße

 

Hallo!

Gibt es einen bestimmten Grund, weshalb du das per Makro machen möchtest?
Diese Formel in B5 macht das gleiche:

=WENN(B3=0;"Der Wert ist Null";WENN(B3<0;"Der Wert ist kleiner als Null";"Der Wert ist größer als Null"))

 

klappt bei mir nicht

Wenn ich das in eine Zeile reinkopiere wird "NAME" in die Zelle geschrieben

 

Hallo!

Dann hast du dich entweder vertippt, oder du hast eine anderssprachige Excel-Version als Deutsch.

 

stimmt :)
meine ist Englisch

 

Hallo!

Dann heißt die WENN- Funktion natürlich IF.
Evtl. musst du auch die Semikolons durch Kommas ersetzen.

 

danke, jetzt funktioniert es.

Mein Problem ist nur, daß ich das ganze per Msg-Box haben wollte.

Beispiel:
Jemand schreibt in Spalte A Zeile 1 z.B. 0085 rein. Wenn das eingegeben wurde soll eine bestimmte MSG Box aufspringen mit einer Meldung. Ich habe ungefährt 15 Zahlen, die alle 4-stellig sind. Nur bei diesen Zahlen darf eine Msg-Box aufspringen.

Weiss jemand wie das funktioniert?

 

Hallo!

Von einer MsgBox war bisher nicht die Rede...
Die Eingabezelle A1 scheint bei dir als "Text" formatiert zu sein?
Dann versuch's mit diesem Code im Modul des entsprechenden Tabellenblatts:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Select Case Target
Case "0085", "1234", "2345"
MsgBox "Hallo, ich bin's!"
End Select
End If
End Sub

 

vielen dank für deine schnelle hilfe. ich bin leider anfänger in vb.

bei mir funktioniert der code irgendwie nicht.

wenn ich den code in das modul reincopiere und dann in zwlle a1 die zahl 0085 reinschreibe kommt keine msg box

 

ah jetzt :)

hab es ins modul eingetragen anstatt im sheet. jetzt funktioniert es.

super, vielen dank

 

wie kann ich das für alle zeilen der spalte a gültig machen?

Ich möchte ja nicht nur in zeile 1 spalte A etwas eintragen können, sondern in alle zeilen der spalte A.

wie bauch ich da das makro um?

lg

 

Hallo!

Dann ändere die erste Zeile:
If Target.Column = 1 Then

 

perfekt, vielen dank :)

 

Habe noch ein Problem *g*

Wenn ich eine Zahl aus WORD kopiere und in die Zelle einfüge wird die Formatierung mitgenommen. Wie kann ich die Zelle so formatieren, dass sie nur den Text aus WORD kopiert und nicht die Formatierung mitnimmt.

Anders gefragt:
Wie kann ich die Zelle in Excel so formatieren, das nur die Werte und nicht die Formatierung in Excel übernommen werden?

Grüße

 

Hallo!

Ungetestet:
Menü Bearbeiten > Inhalte einfügen > Werte > OK