Mit einer zahl in einer zelle einen Makro ausführe
11.11.2014 11:59:11
Peter
ich habe folgendes Problem:
Ich hab in einem Tabellenblatt einige Zellen die ich überprüfen ob dort eine 1 drin steh und wenn ja führe ich einen Makro aus. Das funktioniert auch schon seid einiger zeit jedoch möchte ich jetzt noch eine weitere Zelle hinzufügen und ich bekomme die Funktion einfach nicht hin.
So siehts aus:
Private Sub Worksheet_Calculate()
' Wert = 100 dann PDF (US) erzeugen
If Range("A1").Value = 100# Then
Range("A1").Value = 0
Create_PDF_US
End If
' Wert = 200 dann PDF (Metrik) erzeugen
If Range("A1").Value = 200# Then
Range("A1").Value = 0
Create_PDF_Metrik
End If
' Wert = 300 dann Daten aus Tabellenblatt Data löschen
If Range("A1").Value = 300# Then
Range("A1").Value = 0
New_Report
End If
' Sobald ein Run ausgeführt wurde wird die Datei als Kopie in ein angegebenes Verzeichniss _
abgelegt
If Range("D10").Value = 1 Then
Save_as_Copy
End If
If Range("F10").Value = 1 Then
Save_as_Copy
End If
If Range("H10").Value = 1 Then
Save_as_Copy
End If
If Range("J10").Value = 1 Then
Save_as_Copy
End If
If Range("L10").Value = 1 Then
Save_as_Copy
End If
If Range("N10").Value = 1 Then
Save_as_Copy
End If
If Range("P10").Value = 1 Then
Save_as_Copy
End If
If Range("R10").Value = 1 Then
Save_as_Copy
Range("R10").Value = 0
End If
End Sub
Die letzte Anweisung mit "R10" ist neu und funktioniert komischerweise nicht.
Ich bin kein Experte und weiß nicht ob ich unterumständen mit R10 aus einem Bereich bin der nicht mehr ausgewertet wird?
Gruß Peter