Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1840to1844
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
1840to1844
1840to1844
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Target.address = range

Target.address = range
30.07.2021 16:44:49
Christoph
Moin,
ich habe da ein Problem mit einer Sache.
Hier 

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$G$7" And WorksheetFunction.IsNumber(Target) Then Target = -Abs(Target)
End Sub

soll statt nur in der Zelle G7, in allen Zellen von G7 bis G49, jegliche Zahlen negativ gerechnet und angezeigt werden, auch wenn sie einfach positiv eingetragen werden.
Das Ganze soll ein ehefrauensicheres Kassenbuch werden. Sie hat sich so oft vertippt und ich habe keine Lust mehr das zu kontrollieren und zu korrigieren. Kostet zu viel Zeit.
Könnt ihr helfen?
Grüße
Christoph

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Target.address = range
30.07.2021 16:47:32
Hajo_Zi
Hallo Christoph,

Private Sub Worksheet_Change(ByVal Target As Range)
Dim RaBereich As Range                          ' Variable für Bereich
Dim RaZelle As Range                            ' Variable für Zelle
Set RaBereich = Range("L22:M39, O21:O26")       ' Bereich der Wirksamkeit
' noch mehr Bereiche
'Set RaBereich = Union(Range("C11:AG11 , C13:AG13, C15:AG15 , C17:AG17"), _
'    Range("C35:AE35, C37:AE37, C43:AG43, C45:AG45 , C47:AG47 , C49:AG49"), _
'    Range("C67:AF67 , C69:AF69 , C75:AG75 , C77:AG77 , C79:AG79 , C81:AG81"), _
'    Range("C99:AF99 , C101:AF101, C107:AG107 , C109:AG109 , C111:AG111"), _
'    Range("C127:AG127 , C129:AG129 , C131:AG131 , C133:AG133 , C139:AF139"), _
'    Range("C155:AG155, C157:AG157 , C159:AG159 , C161:AG161 , C163:AG163"), _
'    Range("C179:AF179 , C181:AF181, C187:AG187 , C189:AG189 , C191:AG191"))
' Union 30 Argumente zu je 255 Zeichen
' ab Vesion XP braucht der Schutz nicht aufgehoben werden
' Formatierung bei Schutz kann über Dialog Schutz eingestellt werden
' Zelle die in dem Bereich liegen auf die Variable schreiben
' damit werden nur noch die Zellen bearbeitet die im vorgegeben Bereich liegen
' jede Zelladresse ist einzeln angegeben
Set RaBereich = Intersect(RaBereich, Target)
If Not RaBereich Is Nothing Then
'ActiveSheet.Unprotect ("Passwort")
For Each RaZelle In RaBereich
With RaZelle
GrußformelHomepage
Anzeige
AW: Target.address = range
30.07.2021 16:56:29
ChrisL
Hi Christoph

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Not Intersect(Target, Range("G7:G49")) Is Nothing Then
On Error Resume Next
Application.EnableEvents = False
For Each c In Intersect(Target, Range("G7:G49"))
If IsNumeric(c) And c > 0 Then c = c * -1
Next c
Application.EnableEvents = True
End If
End Sub
cu
Chris
AW: Target.address = range
30.07.2021 16:57:03
GerdL
Moin Christoph, teste mal.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zelle As Range
If Not Intersect(Range("G7:G49"), Target) Is Nothing Then
For Each Zelle In Intersect(Range("G7:G49"), Target)
Application.EnableEvents = False
If IsNumeric(Zelle) Then Zelle = Abs(Zelle) * -1
Application.EnableEvents = True
Next
End If
End Sub
Gruß Gerd
Anzeige
AW: Target.address = range
30.07.2021 17:42:31
onur 

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("G7:G49")) Is Nothing Then Exit Sub
Application.EnableEvents = False
If IsNumeric(Target) Then Target = -Abs(Target)
Application.EnableEvents = True
End Sub

AW: Target.address = range
30.07.2021 18:26:01
GerdL
Moin onur,
Mehrere Zellen markieren - Eingabe einer positiven Zahl - STRG+ENTER
deckt dein Code offenbar nicht ab.
Gruß Gerd
AW: Target.address = range
30.07.2021 18:35:16
onur
Hi Gerd,
"ein ehefrauensicheres Kassenbuch" - warum sollte die Ehefrau mehrere Zellen gleichzeitig (mehrere gleiche Ausgaben ?) eingeben wollen, wenn sie es nicht mal mit dem Minuszeichen gebacken kriegt? :)
Gruß
Onur
Anzeige
AW: Target.address = range
30.07.2021 18:48:15
GerdL
Hi onur,
unterschätze seine Ehefrau nicht. :-)
Gruß Gerd

77 Forumthreads zu ähnlichen 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
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
If Target = Range("l9") Then
Karsten


Hallo...
Kann mir jemand den Befehl für die gesamte Spalte L umschreiben.
Besten Dank
Gruß
Karsten
Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Range("l9") Then
Set rngBereich = Nothing
Set rng = Nothing
Application.Run "a"
End I...
25.07.2009 14:27:04
Thread-ID: 1091230
5 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
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

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
3
13
6
4
3
4
4
6
6
2
4
4
6
10
12
2
3
5
8
2
6
5
2
4
2