Live-Forum - Die aktuellen Beiträge
Datum
Titel
22.04.2025 21:45:53
ComboBox - Vorschlagsliste mit "enthält"
22.04.2025 17:45:22
anwendungs oder Objektorientierter Fehler
22.04.2025 16:13:02
Formel Rückgabe eines Wertes aus Matrix der < Kriterium
22.04.2025 09:11:17
VBA Code - Rechteck wird nicht gelöscht
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1160to1164
1160to1164
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Private Sub Worksheet_Change(ByVal Target As Range

Forumthread: Private Sub Worksheet_Change(ByVal Target As Range

Private Sub Worksheet_Change(ByVal Target As Range
ing.grohn
Hallo Forum,
Worksheet_Change ist eine wunderbare Sache! (wenn sie funktioniert)
Also:
ich arbeite in einem Blatt mit: Private Sub Worksheet_Change(ByVal Target As Range)
funktioniert alles super. Nur manchmal tut das nicht!!!!
Excel beenden, neu starten, alles klar und funktioniert!!
Aber warum passiert das?
Hat jemand ne Antwort
Sonnige Grüße aus dem Nord-Westen
Albrecht
(toll mit der Schweiz! oder)
Anzeige
AW: Private Sub Worksheet_Change(ByVal Target As Range
17.06.2010 09:43:52
ChrisL
Hi Albrecht
Kann es sein dein Code eine Endlosschleife produziert d.h. Change verursacht wieder Change usw.?
cu
Chris
AW: Private Sub Worksheet_Change(ByVal Target As Range
17.06.2010 10:02:27
ing.grohn
Hallo,
hier der komplette Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Hoehe As Double
With Target
If .Row > 20 And .Row """",texte(RC[-1]),"""")"
Target.Offset(0, -1).Formula = "=IF(OR(RC[1]="""",RC[1]=""t""),"""", _
IF(Gebuehrensatz(RC[1])0,Gebuehrensatz(RC[1]),1))"
Target.Offset(0, 5).Formula = "=IF(OR(RC[-6]="""",RC[-5]=""""),"""", _
IF(Betrag(RC[-5])0,Betrag(RC[-5])*RC[-6],IF(R17C7"""", _
RC[-6]*R17C7,"""")))"
Target.Offset(0, 6).Formula = "=IF(RC[-6]"""",Steuer(RC[-6]),"""")"
End If
Hoehe = Zeilenhoehe(wks:=Me, Zeile:=Target.Row, Spalte_A:=3, Spalte_E:=6)
End If
End With
End Sub

Mit freundlichen Grüßen
Albrecht
Anzeige
AW: Private Sub Worksheet_Change(ByVal Target As Range
17.06.2010 10:13:06
ChrisL
Hi Albrecht
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ErrorHandler
Application.EnableEvents = False
'

cu
Chris
AW: Private Sub Worksheet_Change(ByVal Target As Range
17.06.2010 10:35:46
ing.grohn
Hallo Chris,
werd ich probieren, vielen Dank!
Zu bedenken geb ich aber noch, dass das Arbeitsblatt beim "ersten" Aufruf nichts macht.
Also es ist noch nichts ausgelöst, um eine Endlosschleife anzuregen und läßt sich auch beenden (also scheint nicht aktiiv zu sein)
Mit freundlichen Grüßen
Albrecht
(kann mich erst später darum kümmern, melde mich heute abend noch mal)
Anzeige
AW: Private Sub Worksheet_Change(ByVal Target As Range
17.06.2010 11:31:24
ing.grohn
Hallo Chris,
das geht ja gar nicht!
MfG
Albrecht
AW: Private Sub Worksheet_Change(ByVal Target As Range
17.06.2010 11:57:04
ChrisL
Hi Albrecht
Geht nicht... geht doch... so kommen wir nicht weiter ;)
In deinem Change Ereignis fügst du Daten in die Tabelle ein, was wiederum zu einem weiteren Change Ereignis führt usw. Sowas verhindert man mit EnableEvents. Zur Sicherheit sollte man in diesem Zusammenhang immer noch eine kleine Fehlerbehandlung verwenden.
cu
Chris
Anzeige
AW:geht nicht gibs nicht
17.06.2010 12:26:34
ing.grohn
Hallo Chris,
nachdem ich meinen Code in deinen Rahmen eingefügt habe,
passiert tätsächlich nichts!
(möglich, dass das der Ausgangspunkt für meine Frage ist)
Deine Bemerkung (ruft wieder ein Changeereignis auf...) sage ich trotzdem , mein Code funktioniert (meistens). Und von Endlosschleifen ist auch nichts zu merken Sagen wir mal; 4 Tage passiert nichts (nein, es geschieht, was geschehen soll). Am 5. Tag gehts dann plötzlich nicht mehr.
Die Tabelle wurde in der Zwischenzeit mehrfach geschlossen und wieder geöffnet.
Zugegeben, Deine Anmerkung stimmt mich nachdenklich.
Aber dein Code läuft im Moment bei mir nicht.
Allerdings hab ich auch schon erlebt, dass die VBA Umgebung machmal Fehler meldet, obwohls keine gibt. Ich schliesse alles und starte neu und dann gehts. K.A. was da passiert.
Mit freundlichen Grüßen
Albrecht
Anzeige
AW: AW:geht nicht gibs nicht
17.06.2010 12:45:43
ChrisL
Hi Albrecht
Weil mir die Datei-Struktur fehlt, musste ich ein paar Zeilen auskommentieren, aber scheint zu funktionieren...
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ErrorHandler
Application.EnableEvents = False
Dim Hoehe As Double
With Target
'           If .Row > 20 And .Row """",texte(RC[-1]),"""")"
Target.Offset(0, -1).Formula = "=IF(OR(RC[1]="""",RC[1]=""t""),"""",IF( _
Gebuehrensatz(RC[1])0,Gebuehrensatz(RC[1]),1))"
Target.Offset(0, 5).Formula = "=IF(OR(RC[-6]="""",RC[-5]=""""),"""",IF( _
Betrag(RC[-5])0,Betrag(RC[-5])*RC[-6],IF(R17C7"""",RC[-6]*R17C7,"""")))"
Target.Offset(0, 6).Formula = "=IF(RC[-6]"""",Steuer(RC[-6]),"""")"
End If
'              Hoehe = Zeilenhoehe(wks:=Me, Zeile:=Target.Row, Spalte_A:=3, Spalte_E:=6)
'          End If
End With
Application.EnableEvents = True
Exit Sub
ErrorHandler:
MsgBox "Fehler"
Application.EnableEvents = True
End Sub
cu
Chris
Anzeige
AW: AW:geht nicht gibs nicht
17.06.2010 13:24:02
ing.grohn
Hallo Chris,
Ruhe bewahren, das tun was man geschrieben hat und dann gehts:
ich hab Deinen Code eingefügt, die Datei gespeichert und neu gestartet und jetzt gehts.
Vielen Dank!!
Ich werd die Geschichte weiter beobachten.
(ist das aber normal?)
Mit freundlichen Grüßen
Albrecht
Anzeige
AW: AW:geht nicht gibs nicht
17.06.2010 13:34:00
ChrisL
Hi Albrecht
Danke für die Rückmeldung, ich hoffe es hilft.
Wenn der Fehler total zufällig auftritt, dann ist dies sicher nicht normal. Dann müsste man evtl. mal versuchen Excel neu zu installieren usw.
Ich vermute aber schon eher, dass das Problem in einer gewissen Konstellation auftritt; eine Konstellation, die vielleicht nicht jeden Tag vorkommt. Durch deine If/Wenn-Abfrage, wird eine Endlosschleife verhindert (hab ich vielleicht leicht übertrieben), dennoch wird das Ereignis mehrmals (bei jedem Formel-Eintrag einzeln) angesprochen, was sicherlich nicht förderlich für die "Stabilität" des Codes ist. Ich bin daher zuversichtlich, dass die Änderung den gewünschten Effekt bringt.
cu
Chris
Anzeige

Forumthreads zu verwandten Themen

Formel über VBA in Range.
Tom

Hi,
ich Versuch eine Summenformel
=SUMME(A3:A29)
verzweifelt über VBA dynamisch einzutragen.
Die Summe muss von A bis J eingetragen werden. Jedesmal mit dem entpsrechenden Buchstaben nicht immer mit A.
Hab das so versucht:
For k = 2 To 10 'Range(Cells(k, 29), Cells(...
13.08.2008 11:41:00
Thread-ID: 1001455
4 Beiträge
VBA Range Definition
Karen

Hallo Forum,
ich habe ein kleines Problem in meinem Makro.
Ich möchte eine Range abbilden, leider überträgt das Makro aber immer nur die Zeile 6.
For i = 2 To 256
If Cells(3, i).Value = datum Then
Range(Cells(6, i), Cells(40, i)).Copy
Selection.Copy
Cells(6, i + 1)...
22.12.2008 16:21:00
Thread-ID: 1034798
14 Beiträge
Anzeige
Worksheet_Change(ByVal Target As Range)
Axel

Ein schönes Wochenende zuvor wünschend!
Aufgabenstellung:
Ich möchte in einer Zelle einen Wert schreiben, was ein Makro auslösen soll. In einer Zweiten soll dadurch automatisch eine Umrechenformel einfügt werden. Auf diese Weise kann man (trivial, nur als Beispiel) bei der Bedienung ein...
06.03.2009 15:21:33
Thread-ID: 1057353
7 Beiträge
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
Anzeige
Probleme Worksheet_Change(ByVal Target As Range)
Ron

Hallo Leute,
habe mir vor einigen Wochen hier im Forum von Daniel helfen lassen und wollte nun den von ihm geposteten Script ein wenig auf meine Bedürfnisse umschreiben. Leider bin ich wohl zu blöd...
Es wäre Klasse, wenn mir jemand helfen könnte!
Ausgangslage:
Ich möchte in ein...
28.04.2009 04:06:20
Thread-ID: 1071514
4 Beiträge
Range(Target.Address, Target ... umschreiben
Karsten

Hallo,
ich möchte u.s. Makro im Modul verwenden. Dabei stoppt er immer bei:
Range(Target.Address, Target.Offset(, -11)).Interior.ColorIndex = xlNone
Kann mir da jemand weiterhelfen?
Gruß
Karsten
Sub a() Dim X, farbe As Byte Select Case Target Case Is = "Montag" Range(Tar...
25.07.2009 17:48:32
Thread-ID: 1091282
5 Beiträge
Anzeige
If Target.Address = "$A$1" Then
Karsten

Hallo,
in folgendem Beispiel habe ich A1 und A2 verbunden.
Der Befehl:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then
Application.CommandBars("Standard").Visible = False
Application.CommandBars("Formatting").Visible = False
18.11.2009 08:57:17
Thread-ID: 1118184
7 Beiträge
Range Bezüge in VBA von fix auf relativ umstellen
fix

Hallo Herber Fans,
ich ermittle einen Range:
Set rgGPTMember_Source = Intersect(rgGPTMemberAugmentation.Rows(1).Find("GPT Member", LookIn:=xlValues, LookAt:=xlWhole).EntireColumn, rgGPTMemberAugmentation)
Dessen Adresse lautet dann: $G$5:$G$34
Dieser Range wird nun in eine Namen...
07.01.2010 21:06:12
Thread-ID: 1128031
7 Beiträge
If Target.Address
Murino

Gruß an alle,
ich habe immer noch eine Große bitte an Euch. Beim vorherigen Beitrag habe ich es wohl zu umständlich erklärt. Beim genanten Makro wird gefragt:
Falls in Zelle "$M$52" ein Wert steht,
dann soll dieser (später) zwischen spalte 72 To 78 eingefügt werden.
Falls in Ce...
24.02.2010 09:56:53
Thread-ID: 1140959
3 Beiträge
Anzeige
VBA range definieren
Benjamin

Guten Tag an alle,
ich habe ein Problem, bei dem ich zur Zeit kläglich scheitere.
Ich möchte eine Formel nach unten ausfüllen und zwar genau so oft, wie ich in einer Spalte Werte habe.
Also, wenn ich Z.b. in Spalte H1:H4 werte habe, soll die formeln auch von z.B. A1:C4 kopiert werde...
25.02.2010 14:42:10
Thread-ID: 1141514
5 Beiträge
If Target.Address ... aber nur wenn eine Zahl
Hans

Hallo Leute, ich habe folgendes Skript : Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean) If Target.Address(0, 0) = "C6" Then Lager = Target.Cells(1, 1).Value Range("H2") = Lager Call Lagr Cancel = True End If Das besagt das die Methode Lagr ausgeführt w...
25.02.2010 15:13:26
Thread-ID: 1141551
5 Beiträge
VBA: Range eindimensionell an Funktion übergeben
axel_k

Hi,
ich möchte aus einer Tabelle Werte aus einer Spalte in eine Funktion einlesen: Function bla(daten) End Function
Wenn ich das tue, liegt daten als (n,1)-Matrix zweidimensional vor.
Kann ich daten irgendwie so einlesen, dass ich einen eindimensionalen Vektor (daten(n)) erhalte?...
31.05.2010 12:02:47
Thread-ID: 1159570
7 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige