Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1508to1512
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
1508to1512
1508to1512
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

worsheet-change

worsheet-change
25.08.2016 13:07:46
Airwin
Hi Comunity,
Ich habe mir eine Statistik gebastelt, wo wenn in einer bestimmten Zelle (B41) etwas eingetragen wird, ein bestimmtes Makro ausgeführt wird.
Das funkt auch recht gut, außer dass wenn ich in der Zelle A41 etwas eingebe und enter drücke (oder tab) die aktive zelle nicht wie üblich in die nächste zelle springt.
das ist zwar nicht besonders dramatisch aber lästig.
Vielleicht kann mir da jemand helfen, Danke im voraus.
LG
https://www.herber.de/bbs/user/107833.xlsm

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

Betreff
Datum
Anwender
Anzeige
AW: worsheet-change
25.08.2016 13:13:55
ChrisL
Hi
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$41" Then
Rows("2:2").Delete Shift:=xlUp
Range("A41").Select
End If
End Sub

cu
Chris
AW: worsheet-change
25.08.2016 13:19:43
Airwin
Dass ich dass mit Anfang und Ende (endif) machen musste, war mir nicht klar.
Danke Chris
AW: worsheet-change
25.08.2016 13:24:52
UweD
Hallo
das Select muss meiner Meinung nach noch mit in dei IF-Behandlung...
Tipp:
Durch das löschen der Zeile wird das Event wieder ausgelöst und das Makro erneut durchlaufen.
Also vor der Operation ausschalten und nachher wieder ein.
Im Fehlerfall sollte aber auf jeden Fall wieder eingeschaltet werden, deshalb noch die Fehlerbehandlung ergänzt.
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fehler
If Target.Address = "$B$41" Then
Application.EnableEvents = False
Rows("2:2").Delete Shift:=xlUp
Range("A41").Select
End If
'*** Fehlerbehandlung
Err.Clear
Fehler:
If Err.Number  0 Then MsgBox "Fehler: " & _
Err.Number & vbLf & Err.Description: Err.Clear
Application.EnableEvents = True
End Sub

Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige