Ein kleiner fehler im Makro

Computer: Software & Programmierung Office Software
1

Hallo
Ich habe da ein kleineres (oder größeres ) Problrm.
Ich möchte mit den volgenden Makro (Startmakro) erreichen, wenn eine gewisse Zelle 1 hat, das dann das zugewiesene Makro ausgeführt wird. Wenn nur eine Zelle eine 1 stehen hat, funktioniert es auch ohne weiteres. Nur wenn jetzt zwei oder mehrere eine 1 stadt einer 0 haben, wird immer nur das erste makro gestartet. und ausgeführt. (zb. wenn das Feld für
Ehrenreicherwin und Josko eine 1 enthält, wirt nur Ehrenreicherwin ausgeführt.
Ich glaube, das das Problem daran liegt, das bei jeden Makro das endsub steht. Wie kann ich das ändern, das es funktioniert???
Danke
Sub Startmakro()

If Cells(13, 7).Value = 1 Then
KrisamAnton
End If

If Cells(14, 7).Value = 1 Then
KrisamRene
End If

If Cells(15, 7).Value = 1 Then
EhrenreichRobert
End If

If Cells(16, 7).Value = 1 Then
EhrenreichErwin
End If

If Cells(17, 7).Value = 1 Then
Josko
End If

If Cells(18, 7).Value = 1 Then
lehr
End If

If Cells(19, 7).Value = 1 Then
lehr1
End If

If Cells(20, 7).Value = 1 Then
lehr2
End If

If Cells(21, 7).Value = 1 Then
lehr3
End If

Exit Sub

End Sub

Sub KrisamAnton()
’
’ KrisamAnton Makro
’ Makro am 08.02.02 von Krisam Anton geschrieben
’

’
Sheets(„Krisam Anton“).Select
Rows(„11:11“).Select
Selection.Insert Shift:=xlDown
Sheets(„Tabelle3“).Select
Range(„B3:H3“).Select
Selection.Copy
Sheets(„Krisam Anton“).Select
Range(„B11“).Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

End Sub

Sub KrisamRene()
’
’ KrisamRene Makro
’ Makro am 08.02.02 von Krisam Anton geschrieben
’

’
Sheets(„Krisam Rene“).Select
Rows(„11:11“).Select
Selection.Insert Shift:=xlDown
Sheets(„Tabelle3“).Select
Range(„B3:H3“).Select
Selection.Copy
Sheets(„Krisam Rene“).Select
Range(„B11“).Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub

Sub EhrenreichRobert()
’
’ Ehrenreich Robert Makro
’ Makro am 08.02.02 von Krisam Anton geschrieben
’

’
Sheets(„Ehrenreich Robert“).Select
Rows(„11:11“).Select
Selection.Insert Shift:=xlDown
Sheets(„Tabelle3“).Select
Range(„B3:H3“).Select
Selection.Copy
Sheets(„Ehrenreich Robert“).Select
Range(„B11“).Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub

Sub EhrenreichErwin()
’
’ Ehrenreich Erwin Makro
’ Makro am 08.02.02 von Krisam Anton geschrieben
’

’
Sheets(„Ehrenreich Erwin“).Select
Rows(„11:11“).Select
Selection.Insert Shift:=xlDown
Sheets(„Tabelle3“).Select
Range(„B3:H3“).Select
Selection.Copy
Sheets(„Ehrenreich Erwin“).Select
Range(„B11“).Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub

Sub Josko()
’
’ Josko Makro
’ Makro am 08.02.02 von Krisam Anton geschrieben
’

’
Sheets(„Josko“).Select
Rows(„11:11“).Select
Selection.Insert Shift:=xlDown
Sheets(„Tabelle3“).Select
Range(„B3:H3“).Select
Selection.Copy
Sheets(„Josko“).Select
Range(„B11“).Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub

Sub lehr()
’
’ lehr Makro
’ Makro am 08.02.02 von Krisam Anton geschrieben
’

’
Sheets(„lehr“).Select
Rows(„11:11“).Select
Selection.Insert Shift:=xlDown
Sheets(„Tabelle3“).Select
Range(„B3:H3“).Select
Selection.Copy
Sheets(„lehr“).Select
Range(„B11“).Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub

Sub lehr1()
’
’ lehr1 Makro
’ Makro am 08.02.02 von Krisam Anton geschrieben
’

’
Sheets(„lehr1“).Select
Rows(„11:11“).Select
Selection.Insert Shift:=xlDown
Sheets(„Tabelle3“).Select
Range(„B3:H3“).Select
Selection.Copy
Sheets(„lehr1“).Select
Range(„B11“).Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub

Sub lehr2()
’
’ lehr2 Makro
’ Makro am 08.02.02 von Krisam Anton geschrieben
’

’
Sheets(„lehr2“).Select
Rows(„11:11“).Select
Selection.Insert Shift:=xlDown
Sheets(„Tabelle3“).Select
Range(„B3:H3“).Select
Selection.Copy
Sheets(„lehr2“).Select
Range(„B11“).Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub

Sub lehr3()
’
’ lehr3 Makro
’ Makro am 08.02.02 von Krisam Anton geschrieben
’

’
Sheets(„lehr3“).Select
Rows(„11:11“).Select
Selection.Insert Shift:=xlDown
Sheets(„Tabelle3“).Select
Range(„B3:H3“).Select
Selection.Copy
Sheets(„lehr3“).Select
Range(„B11“).Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub

2

Hallo,

ich hab das Ganze mal auf die Schnelle bei mir simuliert und es funktioniert eigentlich einwandfrei. Mir ist aber aufgefallen, dass Du in den Prozeduren, die aufgerufen werden, andere Tabellenblätter auswählst. Damit dürfte sich nach Ausführung der ersten Prozedur Deine If - Anweisung auf eine falsche Tabelle beziehen. Du solltes in Deiner If - Anweisung schreiben:

If Worksheets(„Tabelle1“).cells(19,7) = 1 Then
Aufruf Makro
End if

Statt „Tabelle1“ musst Du natürlich die nehmen, in der es bei Dir drin steht. Dann sollte es funktionieren.

Gruß,
Rüdiger

3

Zuersteinmal Danke, das du dich damit beschäftigt hast.
Es stimmt, es war wirklich nur das falsche Tabellenblatt.
(So ein kleiner Fehler, und das ganze funktioniert nicht)
BYE

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]