Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
732to736
732to736
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bei letzer Eingabe =Messagebox

Forumthread: Bei letzer Eingabe =Messagebox

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
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Bei letzer Eingabe =Messagebox
17.02.2006 13: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
Anzeige
AW: Bei letzer Eingabe =Messagebox
17.02.2006 13:21:44
Matthias
Danke für den Vorschlag, werde es mal ausprobieren.
AW: Bei letzer Eingabe =Messagebox
17.02.2006 13:21:56
Matthias
Danke für den Vorschlag, werde es mal ausprobieren.
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige