Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
732to736
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
732to736
732to736
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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.

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige