Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 08:08:24
Pivot Vormonatsveränderung
26.04.2024 07:54:11
nur den ersten Eintrag in spalte zählen
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1380to1384
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
1380to1384
1380to1384
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Workbook_SheetChange

Workbook_SheetChange
12.09.2014 20:35:42
Peter
Guten Abend
Damit ich einen negativen Betrag im Format n- und -n eingeben kann, habe ich folgenden Code bei DieseArbeitsmappe hinterlegt: 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Left(Target, 1)  "-" And Right(Target, 1) = _
"-" And IsNumeric(Left(Target, Len(Target) - 1)) Then
Target = "-" & Left(Target, Len(Target) - 1)
Else
End If
End Sub

Nun kriege ich noch Probleme, wenn die Selektion mehrere Zellen umfasst. Wie kann ich das abfangen?
Gruss, Peter

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Workbook_SheetChange
12.09.2014 21:40:47
Beverly
Hi Peter,
sollen bei Mehrfachmarkierung alle Zellen geändert werden oder soll dann gar nichts passieren?

AW: Workbook_SheetChange
12.09.2014 21:52:00
Peter
Hallo Karin
Es wäre praktisch, beide Varianten zu kennen :-)
Gruss
Peter

AW: Workbook_SheetChange
12.09.2014 22:31:41
Beverly
Hi Peter,
versuche es mal so:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
For Each Target In Target
If Len(Target) > 1 Then
If Left(Target, 1)  "-" And Right(Target, 1) = _
"-" And IsNumeric(Left(Target, Len(Target) - 1)) Then
Application.EnableEvents = False
Target = "-" & Left(Target, Len(Target) - 1)
Application.EnableEvents = True
End If
End If
Next Target
End Sub

Anzeige
AW: Workbook_SheetChange
12.09.2014 22:36:46
Daniel
Hi
Variante a) nichts machen wenn mehrer Zellen ausgewählt werden:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.CountLarge > 1 Then Exit sub
Application.EnableEvents = False
If Left(Target, 1)  "-" And Right(Target, 1) = _
"-" And IsNumeric(Left(Target, Len(Target) - 1)) Then
Target = "-" & Left(Target, Len(Target) - 1)
End If
Application.EnableEvents = True
End Sub

Variante b) Jede Zelle bearbeiten, per Schleife 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim Zelle as Range
Application.enableEvents = False
For Each Zelle in Intersect(Target, sh.UsedRange)
If Left(Zelle, 1)  "-" And Right(Zelle, 1) = _
"-" And IsNumeric(Left(Zelle, Len(Zelle) - 1)) Then
Zelle = "-" & Left(Zelle, Len(Zelle) - 1)
End If
Next
Application.enableEvents = True
End Sub
das Application.EnableEvents = False verhindert den rekursiven Selbstaufruf des Makros (muss hinterher wieder aktiviert werden, denn diese Einstellung bleibt bei Makroende erhalten!)
das Intersect(Target, sh.Usedrange) verhindert überlange Laufzeiten, wenn du mal ne ganze Spalte bearbeitest (z.B. beim löschen)
Gruß Daniel

Anzeige
AW: Workbook_SheetChange
15.09.2014 22:38:28
Peter
Hallo zusammen
Vielen Dank. Ich habe den Code von Daniel übernommen, diesen dann noch mit der Bedingung aus dem Code von Karin ergänzt (Abfrage, ob Targetlänge grösser als 1 ist).
So ist's prima.
Gruss, Peter

104 Forumthreads zu ähnlichen Themen

VBA-Problem Change-Event/UDF/Gültigkeit
Erich

Hallo zusammen,
Markus hat in https://www.herber.de/forum/archiv/1012to1016/t1013729.htm ein IMHO interessantes Problem gepostet.
Da der Thread jetzt bald ins Archiv wandert, wir aber noch keine Erklärung gefunden haben,
stelle ich die Frage hier nochmal ein.
In der Beispielmapp...
05.10.2008 11:52:00
Thread-ID: 1014215
2 Beiträge
Anzeige
Worksheet_Change(ByVal Target As Range)
Axel


Hallo Könner,
mal wieder an einem Punkt angekommen, wo ich echt nicht weiß, ob die PCs was Magisches können.
Das Makro unten ist prima gelaufen. Und dann mal wieder nicht. Jetzt gerade mal wieder nicht, daher mein Hilferuf. Als mir das das erste Mal passiert ist, habe ich den ganze...
13.03.2009 12:08:19
Thread-ID: 1059821
5 Beiträge
VBA calculate/change event
Frank

Guten Tag allerseits,
ich hoffe es ist jemand so nett, sich meiner anzunehmen und unterstützt mich bei der Lösung folgenden Problems:
Ich möchte ein Excel-Diagramm (2003) dynamisch über veränderbare Werte aus bestimmten Zellen skalieren. Es handelt sich um ein Diagramm mit jeweils primä...
09.04.2009 16:07:47
Thread-ID: 1068059
7 Beiträge
Anzeige
kleine Frage zu: worksheet change event
Bernd

Guten Abend!
ich versuche mich gerade ein bißchen in VBA insbesondere das worksheet change event zu vertiefen und würde mich über einen Rat freuen.
In A1:A5 habe ich sich verändernde Zahlen von 1 bis 3. Wenn sich in der Spalte A ein Wert verändert, sollen in der entsprechenden Zeile - u...
28.07.2009 19:55:23
Thread-ID: 1092055
8 Beiträge
Workbook SheetChange Änderung
amintire

Hallo, hat evtl jemand eine Lösung für mich diesen Code umzubauen. Momentan funktioniert der so dass alle Mappen in der Datei mit dem Format ausgelöst werden. Es müsste allerdings ausgesuchte Tabellen sein.
Also z.B. Tabelle 1 und 3 und 8 wird mit dem Code formatiert... alle anderen Tabelle...
22.09.2009 22:02:43
Thread-ID: 1104755
4 Beiträge
x1 = .CreateEventProc("Change", "Worksheet")
Oliver

Hallo Kollegen,
ich habe ein Problem bei der .CreateEventProc("Change", "Worksheet")
Mein Code sieht wie folgt aus
Sub Makro_in_Worksheet_zufügen() Dim x As Variant, x1 As Long, x2 As Long, Anzahl_der_Zeilen As Long, Tabellennummer As _ String DIM Tabellenname As String Applicati...
05.10.2009 20:46:33
Thread-ID: 1107220
3 Beiträge
Rückgängig Button nach Worksheet_Change
Chris

Hi,
habe in einem Sheet u.a. ein Worksheet_Change Makro laufen, das bestimmte Werte in bestimmte Zeilen kopiert.
Nachdem ich in dem Sheet ein paar Eingaben gemacht habe, kann ich leider den Rückgängig Button nicht benutzen. Das rührt wohl daher, dass nach einer jeglichen Eingabe das Mak...
21.01.2010 11:27:29
Thread-ID: 1131701
9 Beiträge
Worksheet_Change Problem, wenn Target gelöscht wir
Gianni

Guten Abend
Habe folgendes Problem, bei dem ich nicht weiterkomme. Der untenstehende Code füllt bei Eingabe einer positiven Zahl das Datum in die rechte Nachbarzelle und löscht diese, wenn in eine Targetzelle eine Null eingegeben wird. Nun könnte der Anwender eine Fehleingabe machen und die...
17.03.2010 17:49:27
Thread-ID: 1146683
7 Beiträge

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
6
4
6
3
7
3
2
8
6
10
4
1
2
2
3
2
5
7
1
1
10
2
5
2