Live-Forum - Die aktuellen Beiträge
Datum
Titel
09.05.2024 19:15:00
speichern über Makro ändert bedingt formatierte Zellen
09.05.2024 15:49:16
OEE Verlust als Linie an OEE
09.05.2024 13:10:18
Pivot-Tabelle mit Monaten und nicht Tagen
09.05.2024 11:36:45
workbook schließen ohne abfrage
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1852to1856
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1852to1856
1852to1856
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Worksheet_Change

Worksheet_Change
20.10.2021 10: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

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

Betreff
Datum
Anwender
Anzeige
AW: Worksheet_Change
20.10.2021 11: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
Das erste geprüft, danke Hary Top !
20.10.2021 16:12:05
walter
AW: Worksheet_Change
20.10.2021 11: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 11: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 16:14:58
walter
AW: Worksheet_Change
20.10.2021 11:12:33
Matthias
Hallo,

If Target.Address = Range("E28").Address Then
If Target
Gruß ...
Danke auch Dir Matthias ! -)
20.10.2021 16:16:27
walter

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige