Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

Worksheet_Change

Forumthread: Worksheet_Change

Worksheet_Change
20.10.2021 12:40:05
walter
Guten Morgen,
hier mein Makro:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "E28" 
es soll als 1. geprüft werden, obe nach der Eingabe die Zahlen in Zelle E28 und E29 kleiner sind (siehe oben), dann soll abgebrochen werden,
habe mal so reingesetzt.
Bei mir funktioniert es leider nicht
gruß walter b
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Worksheet_Change
20.10.2021 13:04:51
hary
Moin
Mit Gaensepfoten vergleichst du Zahl mit Text. Also ohne die Pfoten.
Du hast 2x Breite ist das richtig?
Teste mal:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E28,E29")) Is Nothing Then
Select Case Target.Address(False, False)
Case "E28"
If Target 
gruss hary
Anzeige
Das erste geprüft, danke Hary Top !
20.10.2021 18:12:05
walter
AW: Worksheet_Change
20.10.2021 13:10:41
Nepumuk
Hallo Walter,
so besser?

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Select Case Target.Address
Case "$E$28"
If Target.Value 
Gruß
Nepumuk
AW: Worksheet_Change
20.10.2021 13:40:14
Nepumuk
Hallo Walter,
ooooooooops, da habe ich was übersehen. Dann so:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Select Case Target.Address
Case "$E$28"
If Target.Value 
Gruß
Nepumuk
Anzeige
Hallo Nepumuk auch Supi ! Danke !
20.10.2021 18:14:58
walter
AW: Worksheet_Change
20.10.2021 13:12:33
Matthias
Hallo,

If Target.Address = Range("E28").Address Then
If Target 
Gruß ...
Danke auch Dir Matthias ! -)
20.10.2021 18:16:27
walter
Anzeige
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
14.05.2026 09:50:42
13.05.2026 19:14:18