wenn oder ausgabe

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim bolMsg As Boolean If Intersect(Target, Range("J6:L6")) Is Nothing Then Exit Sub If Target.Count > 1 Then Exit Sub Application.EnableEvents = False With Sheets("kupro") If Range("J6").Value & Range("K6").Value & Range("L6").Value = "" Then Range("E7:E300").Value = .Range("J7").Value Else Select Case Target.Address(0, 0) Case "J6" If Target.Value = 3 Then Range("K6:L6").ClearContents Range("E7:E300").Value = .Range("Q7").Value ElseIf Not IsEmpty(Target) Then bolMsg = True End If Case "K6" If Target.Value = 4 Then Range("J6,L6").ClearContents Range("E7:E300").Value = .Range("V7").Value ElseIf Not IsEmpty(Target) Then bolMsg = True End If Case "L6" If Target.Value = 5 Then Range("J6:K6").ClearContents 'meinst du für den Wert 5 wirklich die Spalte L aus kupro, 'oder meinst du dann vllt Spalte Z? 'Range("E7:E300").Value = .Range("L7").Value Range("E7:E300").Value = .Range("Z7").Value ElseIf Not IsEmpty(Target) Then bolMsg = True End If End Select End If End With If bolMsg Then Range("E7:E300").ClearContents MsgBox "Geben Sie bitte einen gültigen Wert ein.", _ vbExclamation, "falscher Wert" End If Application.EnableEvents = True End Sub

Sub aaa() Cells(1, 1).Resize(4).NumberFormat = "General" Cells(1, 1).Formula = "=""""" Cells(2, 1) = " " Cells(3, 1) = "" Cells(4, 1).ClearContents Cells(1, 1).Resize(4).NumberFormat = "xxx@" End Sub

Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim lngC As Long, lngZ As Long, cc As Long If Intersect(Target, Range("J7:L300")) Is Nothing Then Exit Sub If Target.Count > 1 Then Exit Sub Application.EnableEvents = False lngZ = Target.Row ' 7 bis 300 lngC = Target.Column ' 10, 11, 12 With Sheets("kupro") If IsEmpty(Target) Then Cells(lngZ, 5) = .Cells(lngZ, 10) Else If Target.Value = Target.Column - 7 Then ' prüfe auf 3,4,5 For cc = 10 To 12 If cc lngC Then Cells(lngZ, cc).ClearContents Next cc Cells(lngZ, 5) = _ .Cells(lngZ, Application.Choose(lngC - 9, 17, 22, 26)) Else Cells(lngZ, 10).Resize(, 3).ClearContents MsgBox "Geben Sie bitte einen gültigen Wert ein.", _ vbExclamation, "falscher Wert" End If End If End With Application.EnableEvents = True End Sub

Hi Sascha,
einige meiner Fragen habe ich mir anhand der Mappe selbst beantworten können,
teilweise bin ich auf Vermutungen angewiesen.
Ein wenig mehr an verständlicher Erklärung wäre schon gut gewesen...
So vermute ich, dass du die Eingaben 1 oder 2 im Bereich Küche!G7:G300 meinst,
nicht in Monatsübersicht!G8:G304.
In Küche!E7:E300 stehen Formeln, die aber vom Worksheet_Change() mit Zahlen überschrieben werden,
so dass sich eine Änderung in Küche!G7:G300 nicht mehr auf Küche!E7:E300 auswirken kann.
Besser würdest du hier wohl nur mit Formeln arbeiten.
Tiefer möchte ich da nicht einsteigen, das ist mir zu unübersichtlich, es gäbe zu viel zu tun.
Zwei Tipps nebenbei:
- Wenn in eine Zelle ohnehin nur ein oder zwei Werte eingegeben werden dürfen, bietet es sich an,
die Eingabe per "Daten - Gültigkeit" zu prüfen. Dann braucht man keine VBA-Prüfung mit MsgBox mehr.
- In kupro:AE7:AE300 stehen 294 Formeln wie
=AF7+AG7+AH7+AI7+AJ7+AK7+AL7+AM7+AN7+AO7+AP7+AQ7+AR7+AS7 +AT7+AU7+AV7+AW7+AX7+AY7+AZ7+BA7+BB7+BC7+BD7+BE7+BF7+BG7
Warum nicht einfach =SUMME(AF7:BG7)?
Vielleicht möchte jemand anders hier einsteigen - ich stelle deshalb den Thread auf "offen".
Grüße von Erich aus Kamp-Lintfort
P.S.: Ich heiße einfach Erich. "Erich G." ist hier nur mein Username zum besseren Wiederfinden.

Hallo Erich und Forum
Hab eine Fast Lösung zu meinem Problem und brauch noch eine kleine Änderung von deinem Makro.
Mein CODE
=WENN(J7=3;kupro!Q7;WENN(K7=4;kupro!V7;WENN(L7=5;kupro!AA7;WENN(J7=0;kupro!J7;WENN(K7=0;kupro!J7; WENN(L7=0;kupro!J7))))))
Erich Makro
Option Explicit


Private Sub Worksheet_Change(ByVal Target As Range)
Dim lngC As Long, lngZ As Long, cc As Long
If Intersect(Target, Range("J7:L300")) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub
Application.EnableEvents = False
lngZ = Target.Row      ' 7 bis 300
lngC = Target.Column   ' 10, 11, 12
With Sheets("kupro")
If IsEmpty(Target) Then
Cells(lngZ, 5) = .Cells(lngZ, 10)
Else
If Target.Value = Target.Column - 7 Then ' prüfe auf 3,4,5
For cc = 10 To 12
If cc  lngC Then Cells(lngZ, cc).ClearContents
Next cc
Cells(lngZ, 5) = _
.Cells(lngZ, Application.Choose(lngC - 9, 17, 22, 26))
Else
Cells(lngZ, 10).Resize(, 3).ClearContents
MsgBox "Geben Sie bitte einen gültigen Wert ein.", _
vbExclamation, "falscher Wert"
End If
End If
End With
Application.EnableEvents = True
End Sub

Das Makro Setzt in Spalte E Kupro!J wenn in J; K; L; nichts drin steht.
Kann man Makro soweit ändern das es die Spalten J; K; L; überwacht auf die Zahlen 3; 4; 5;
und die Spalte E nicht berührt dann kann ich dort meinen Code reinschreiben.
Hoffe ihr könnt mir helfen und ich komme mit meiner Excel weiter.
Gruss Sascha

Beliebteste Forumthreads (12 Monate)

	E	F	G	H	I	J	K	L
5			Ja: 1			auto:	rad:	fuß:
6	456		Jaein: 2			3	4	5

Zelle	Gültigkeitstyp	Operator	Wert1	Wert2
J6	Benutzerdefiniert		=J6=3
K6	Benutzerdefiniert		=K6=4
L6	Benutzerdefiniert		=L6=5

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zelle	Formel
E6	{=WENN((J6="")(K6="")(L6="");kupro!J7;WAHL(MIN(WENN(Küche!J6:L6>"";SPALTE(J6:L6)-9));kupro!Q7;kupro!V7;kupro!Z7))}

wenn oder ausgabe

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread