Office: (Office 365) Variabler Zeilensprung.

Hallo,
kann mir jemand helfen dieses Makro variabel zu machen?
"If Not Intersect(Range("e51"), Target) Is Nothing Then
Range("g32").Select
End If"
das muss variabel werden (Range("e51"), Target)
Wenn "D13" =10 soll es von E41 zu G32 springen. bei 15 von E46 zu G32 springen und bei 20 von E51 zu g32 springen.
Die D13 ändert sich nach Liefermenge.
Mit freundlichen Grüssen
Andre

 

Hallo,

Excel-Datei mit Makro liegt bei.

 

Exl121150
Vielen Dank.

 

Noch eine Frage Wieso funktioniert das rot markiertes Makro nicht? Habe ich was falsch gemacht?
Select Case Range("D13").Value
Case 10:
If Not Intersect(Range("E41"), Target) Is Nothing Then Range("g32").Select
Case 15:
If Not Intersect(Range("E46"), Target) Is Nothing Then Range("g32").Select
Case 20:
If Not Intersect(Range("E51"), Target) Is Nothing Then Range("g32").Select
Case 25:
If Not Intersect(Range("E56"), Target) Is Nothing Then Range("g32").Select
Case 30:
If Not Intersect(Range("E56"), Target) Is Nothing Then Range("e70").Select
Case 30:
If Not Intersect(Range("E74"), Target) Is Nothing Then Range("g32").Select
End Select

 

Hallo,

das ist einfach: Du hast 2x hintereinander "Case 30:" geschrieben - dadurch wird die Verzweigung natürlich bereits beim 1. Case ausgeführt und die Programmausführung kommt gar nie zum 2. Case.

 

Hallo Anton,
wie kann ich machen wenn ich mehr als 25 prüfen muss "D13 = 30" das es von E56 zu E70 Springt und erst beim Erreichen von E74 zu G32 springt?
Grüße Andre

 

Hallo,

Code:

   Select Case Range("D13").Value
     Case 10:
         If Not Intersect(Range("E41"), Target) Is Nothing Then Range("g32").Select
     Case 15:
         If Not Intersect(Range("E46"), Target) Is Nothing Then Range("g32").Select
     Case 20:
         If Not Intersect(Range("E51"), Target) Is Nothing Then Range("g32").Select
     Case 25:
         If Not Intersect(Range("E56"), Target) Is Nothing Then Range("g32").Select
     Case 30:
         If Not Intersect(Range("E56"), Target) Is Nothing Then
            Range("E70").Select
         ElseIf Not Intersect(Range("E74"), Target) Is Nothing Then
            Range("G32").Select
         End If
   End Select

 

Danke Anton
werde morgen es ausprobieren.
Schönen abend noch.

 

Hallo Anton,
das Code funktioniert soweit.
Ich wollte es erweitern aber es kommt zu einer Fehler Meldung.
Was mache ich falsch?

 

Hallo André,

bei der Änderung des Makros hast du die allerletzte Zeile, die aber formal unbedingt nötig ist, entfernt:
End Sub
Genau das sagt ja auch die Fehlermeldung aus. Einfach nach dem letzten "End Select" in eine neue Zeile eintippen.

 

Danke Anton das hat funktioniert.
jetzt wollte ich es für größere Stückzahlen (35,40,45,50) erweitern aber es funktioniert nicht.
muss es wieder das Code geändert werden?

 

Hallo,

du hast vor der Zeile "Case 35:" das vorhergehende IF-Statement nicht korrekt beendet, indem du kein abschließendes "End If" vorgesehen hast. Das müsste einen Fehler beim Kompilieren auslösen.

Darüber hinaus sehe ich, dass du unter "Case 30:" und unter "Case 35:" den gleichen VBA-Code stehen hast. Wenn die Code-Gleichheit tatsächlich bestehen bleibt, dann kann man das deutlich vereinfachen, indem man schreibt "Case 30, 35:". Dann braucht man den dazu gehörigen Code natürlich nur 1x hinschreiben, weil er dann sowohl für 30 als auch 35 gilt.

In der beiliegenden Datei habe ich dir das Makro einfacher handhabbar umprogrammiert, indem ich die Test- und Selektionsbefehle in Unterprogramme verschoben habe.

 

Danke Anton
ich werde es ausprobieren.

 

Select Case Range("D13").Value
Case 10:
If Not Intersect(Range("E41"), Target) Is Nothing Then Range("g32").Select
Case 15:
If Not Intersect(Range("E46"), Target) Is Nothing Then Range("g32").Select
Case 20:
If Not Intersect(Range("E51"), Target) Is Nothing Then Range("g32").Select
Case 25:
If Not Intersect(Range("E56"), Target) Is Nothing Then Range("g32").Select
Case 30, 35, 40, 45, 50:
If Not Intersect(Range("E56"), Target) Is Nothing Then
Range("E70").Select
ElseIf Not Intersect(Range("E74, E79, E84, E89, E94"), Target) Is Nothing Then
Range("G32").Select
End If
End Select
End Sub
Wie mache ich in diesen Bereich richtig?

 

Hallo André,

von der Syntax her ist der Code korrekt (es gibt keine Kompilierfehler).

Was der Code ab dem letzten "Case..." macht, ist Folgendes:
1) Es wird vorausgesetzt, dass "Target" die Zelle ist, in der eine Änderung stattfand.
2) Wenn in der Zelle D13 eine der 5 Zahlen (30,35,40,45,50) enthalten ist, dann überprüft der Code, ob Target sich in Zelle E56 befindet:
2a) Falls das zutrifft, wird Zelle E70 selektiert.
2b) Falls das nicht zutrifft, wird überprüft, ob Target sich in einer der folgenden 5 Zellen (E74, E79, E84, E89, E94) befindet:
2c) Falls Letzteres (Punkt 2b) zutrifft, wird Zelle G32 selektiert.