Wenn Zelle in Spalte 1 dann inhalt entfernen
02.04.2014 09:40:58
Ensinger
ich such schon seit einer Weile eine Lösung, werde aber im internet nicht fündig. Finde leider auch nichts vergleichbares was ich mir umbauen könnte.
Wenn ich ihn den Zellbereich K17:bh424 klicke öffnet sich eine Userform mit Optionbuttons mit der man den Eintrage in die Selction vornehmen kann. Die Einträge können auch nur in dem Bereich stattfinden. In der Spalte BJ prüfe ich ob in der Spalte D ein Wochendtag oder Feiertag ist, falls ja schreibt er eine 1.
Nun das er vorher prüft ob die Zeile im Wochenende liegt oder ein Feiertag ist damit dort keine Einträge geschrieben werden.
Der Code meiner Userform sieht so aus:
Private Sub CommandButton1_Click()
' Eintrage für Bearbeitung
Dim r As Range
Set r = Intersect(Selection, Range("K17:BH424"))
If Not r Is Nothing Then
If OptionButton1 = True Then
Selection.Value = "U ?"
Else
End If
If OptionButton2 = True Then
Selection.Value = "X ?"
Else
End If
If OptionButton3 = True Then
Selection.Value = "SU ?"
Else
End If
If OptionButton4 = True Then
Selection.Value = "U"
Else
End If
If OptionButton5 = True Then
Selection.Value = "X"
Else
End If
If OptionButton6 = True Then
Selection.Value = "SU"
Else
End If
End If
Unload Me
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub CommandButton3_Click()
Selection.ClearContents
Unload Me
End Sub
Es gibt noch ein paar mehr Optionbuttons, die ich jetzt mal gekürzt habe.
Könnt ihr mir da weiterhelfen? Wäre sehr dankbar!!
Gruß
Anzeige