Bei letzer Eingabe =Messagebox

Forumthread: Bei letzer Eingabe =Messagebox
3 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Bei letzer Eingabe =Messagebox

Matthias

Wenn z.B in dem Bereich A2-A5 und C2-C5 Zahlen eingegeben wurden, soll der Inhalt von
Zelle D7 in einer Messagebox wiedergegeben werden ( z.B "Alles Gute"+ "D7" )
Gruß Matthias

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Bei letzer Eingabe =Messagebox

ChrisL
AW: Bei letzer Eingabe =Messagebox

Matthias
AW: Bei letzer Eingabe =Messagebox

Matthias

AW: Bei letzer Eingabe =Messagebox

17.02.2006 14:14:44

ChrisL

Hallo Matthias


Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim Bereich As Range
Set Bereich = Range("A2:A5,C2:C5")
If Not Intersect(Target, Bereich) Is Nothing Then
If CheckNurZahlen(Bereich) Then MsgBox "Alles Gute " & Range("D7")
End If
End Sub


Private Function CheckNurZahlen(rng As Range) As Boolean
Dim Zelle As Range
For Each Zelle In rng
If Zelle = "" Or Not IsNumeric(Zelle) Then Exit Function
If Zelle = 0 Then Exit Function
Next Zelle
CheckNurZahlen = True
End Function

Gruss
Chris

AW: Bei letzer Eingabe =Messagebox

17.02.2006 14:21:44

Matthias

Danke für den Vorschlag, werde es mal ausprobieren.

AW: Bei letzer Eingabe =Messagebox

17.02.2006 14:21:56

Matthias

Danke für den Vorschlag, werde es mal ausprobieren.