AW: Makro starten nur durch Markieren
16.08.2007 17:09:11
micha
Hallo Hajo,
danke für die sch
nelle Antwort, aber es funktioniert leider nicht!
Ich habe hier mal das Makro eingefügt, vieleicht mache ich ja was falsch.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If TargetAdress = "$K$1" Then
Auswahl = InputBox("SUBUNTERNEHMER" _
& vbCrLf & "1 = MRS" _
& vbCrLf & "2 = SUS" _
& vbCrLf & "3 = RAD" _
& vbCrLf & "4 = RET", "Auswahl der SUB", "")
If Auswahl = 1 Then
Range("B1").Select
Range("B1").Value = "MRS"
End If
If Auswahl = 2 Then
Range("B1").Select
Range("B1").Value = "SUS"
End If
If Auswahl = 3 Then
Range("B1").Select
Range("B1").Value = "RAD"
End If
If Auswahl = 4 Then
Range("B1").Select
Range("B1").Value = "RET"
End If
End If
End Sub
DANKE nochmals
Gruß Micha