Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
300to304
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
300to304
300to304
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Private Sub Worksheet_Change(ByVal Target as range

Private Sub Worksheet_Change(ByVal Target as range
28.08.2003 15:49:28
Holger
Hallo,
ich habe ein Problem, wo ich einfach nicht weiter komme.
Erstmal folgende Programmierung (die Formel habe ich vereinfacht):


Private Sub Worksheet_Change(ByVal Target As Range)
If Cells(1, 1) - (Cells(1, 2)> 100 Then
Dim Mldg, Stil, Titel, Antwort
Mldg = "TEXT"
Stil = vbOKOnly + vbCritical + vbDefaultButton1
Titel = "Überprüfen Sie bitte Ihre Eingabe!"
Antwort = MsgBox(Mldg, Stil, Titel, Hilfe, Ktxt)
End If
End Sub


Folgendes Problem: Der User macht in der Tabelle viele Eingaben, z. B. in den Spalten A und C. In den Spalten B und D stehen Planwerte. Wenn nun der eingetragene Wert um z. B. 100 differiert, soll dem User eine Meldung gezeigt werden.
* Wie kann ich es erreichen, die Programmierung so zu ändern, dass für einzelne ausgewählte Zellen eine Eingabeprüfung vorgenommen wird?
* Gibt es in VBA einen Befehl für den "Betrag" von 100? Sprich, die Differenz kann auch - 100 betragen, deshalb wäre "Betrag von 100" eine Hilfe.
Gruß an alle, Holger

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Private Sub Worksheet_Change(ByVal Target as range
28.08.2003 17:52:37
ChrisL
Hi Holger


Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column <= 2 Then
If Abs(Cells(Target.Row, 1) - Cells(Target.Row, 2)) > 100 Then
MsgBox "Überprüfen Sie bitte Ihre Eingabe!", vbOKOnly + vbCritical + vbDefaultButton1, "Titel"
Target.Select
End If
End If
End Sub

Gruss
Chris
AW: Private Sub Worksheet_Change(ByVal Target as range
29.08.2003 09:07:35
Holger
Hallo Chris,
vielen Dank für Deine Hilfe. Leider ist es nicht genau das, was ich suchte. Liegt daran, dass ich es nicht eindeutig erklärt hatte. Vielleicht kannst Du mir aber noch weiter helfen.
In Deiner Programmierung (habe ich noch mal unten eingefügt) werden alle Zellen in Spalte 1 und 2 verglichen. Was ich benötige, ist ein Vergleich von Zelle zu Zelle. In der Zeile 1 muss z. B. eine andere Forderung hinterlegt werden als in Zeile 2 u.s.w.
Weiterhin muss dann der Wert in der Spalte 2 mit der in der Spalte 3 verglichen werden. Insgesamt sind in 11 Zeilen und 4 Spalten die Werte miteinander zu vergleichen, aber pro Vergleich muss eine seperate Forderung (z. B. > 100 oder auch mal >10 %) hinterlegt werden.
Kannst Du mir helfen???
Gruß, Holger


Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column <= 2 Then
If Abs(Cells(Target.Row, 1) - Cells(Target.Row, 2)) > 100 Then
MsgBox "Überprüfen Sie bitte Ihre Eingabe!", vbOKOnly + vbCritical + vbDefaultButton1, "Titel"
Target.Select
End If
End If
End Sub

Anzeige
AW: Private Sub Worksheet_Change(ByVal Target as range
29.08.2003 10:34:34
ChrisL
Hi Holger

Du kannst soviele Bedingungen machen wie du willst... z.B.


Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$B$1" Or Target.Address = "$C$1" Then
If Range("B1") - Range("C1") > 100 Then
MsgBox "Überprüfen Sie bitte Ihre Eingabe!", vbOKOnly + vbCritical + vbDefaultButton1, "Titel"
Target.Select
End If
End If
If Target.Address = "$B$2" Or Target.Address = "$C$2" Then
If Range("B2") - Range("C2") > 0.1 Then
MsgBox "Überprüfen Sie bitte Ihre Eingabe!", vbOKOnly + vbCritical + vbDefaultButton1, "Titel"
Target.Select
End If
End If
' usw.
End Sub

Gruss
Chris
Anzeige
AW: Private Sub Worksheet_Change(ByVal Target as range
29.08.2003 11:17:17
Holger
Hallo Chris,
fast am Ziel!!! Das einzige Problem, was ich jetzt noch habe, ist, dass sich die zu vergleichenden Werte nicht in benachbarten Spalten befinden. Es ist immer noch eine andere Spalte dazwischen. Das hatte ich bisher nicht beschrieben, weil ich es nicht für wichtig erachtete, aber die Programmierung funktioniert nur (zumindest bei mir) bei 2 benachbarten Spalten. Das Programm sieht bei also so aus:


Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$A$1" Or Target.Address = "$C$1" Then
If Range("A1") - Range("C1") > 100 Then
MsgBox "Überprüfen Sie bitte Ihre Eingabe!", vbOKOnly + vbCritical + vbDefaultButton1, "Titel"
Target.Select
End If
End If
'viele andere Anforderungen folgen hier noch
End Sub


Kannst Du mir noch einmal helfen??? Wäre absolut spitze!!!!!!!!!!!!!!!!!!!!!!

Danke Dir schon mal für Deine tolle Hilfe.
Ciao und Gruß aus Braunschweig
Anzeige
AW: Private Sub Worksheet_Change(ByVal Target as range
29.08.2003 12:00:32
Holger
Hallo Chris,
Problem gefunden! Weiß zwar nicht, wo der Fehler lag, habe aber die gesamte Tabelle in eine neue kopiert, da ging es dann auch Spaltenübergreifend.
Super und vielen Dank für Deine Hilfe. Da wäre ich nie drauf gekommen!!!!
Ciao, Holger
AW: Private Sub Worksheet_Change(ByVal Target as range
01.09.2003 16:55:07
Holger
Hallo Chris,
Deine Tipps haben mich echt weiter gebracht. Dachte auch, ich hätte es nun verstanden, stolpere nun aber über ein Problem. Zunächst meine jetzige Programmierung:


Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Zeile 9
If Target.Address = "$K$9" Or Target.Address = "$I$9" Then
If Abs((Range("k9") - 2 * Range("i9")) / (2 * Range("I9"))) > 0.1 Then
MsgBox "Text", vbOKOnly + vbCritical + vbDefaultButton1, "Überprüfen Sie bitte Ihre Eingabe!"
Target.Select
End If
End If
'Zeile 10
If Target.Address = "$K$10" Or Target.Address = "$I$10" Then
If Abs((Range("k10") - 2 * Range("i10")) / (2 * Range("I10"))) > 0.15 Then
MsgBox "Text", vbOKOnly + vbCritical + vbDefaultButton1, "Überprüfen Sie bitte Ihre Eingabe!"
Target.Select
End If
End If
End Sub


Nun möchte ich wieder die Zeile 9 vergleichen, und zwar die Zellen in den Spalten M und K. Folgende Programmierung dachte ich müsste funktionieren, tut's aber nicht:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Zeile 9
If Target.Address = "$K$9" Or Target.Address = "$I$9" Then
If Abs((Range("k9") - 2 * Range("i9")) / (2 * Range("I9"))) > 0.1 Then
MsgBox "Text", vbOKOnly + vbCritical + vbDefaultButton1, "Überprüfen Sie bitte Ihre Eingabe!"
Target.Select
End If
End If
If Target.Address = "$m$9" Or Target.Address = "$k$9" Then
If Abs((Range("m9") - 2 * Range("k9")) / (2 * Range("k9"))) > 0.1 Then
MsgBox "Text", vbOKOnly + vbCritical + vbDefaultButton1, "Überprüfen Sie bitte Ihre Eingabe!"
Target.Select
End If
End If
'Zeile 10
If Target.Address = "$K$10" Or Target.Address = "$I$10" Then
If Abs((Range("k10") - 2 * Range("i10")) / (2 * Range("I10"))) > 0.15 Then
MsgBox "Text", vbOKOnly + vbCritical + vbDefaultButton1, "Überprüfen Sie bitte Ihre Eingabe!"
Target.Select
End If
End If
End Sub


Was mache ich falsch??? Kannst Du mir (ein letztes Mal) helfen???
Gruß, Holger
Anzeige

309 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
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
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
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
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

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