AW: nächste Zelle, Zellen vergleichen,
27.01.2009 15:34:14
ms_michael_2002@yahoo.de
Sorry! Geil!
Und wie bekomme ich das jetzt mit der inputbox und der Maus hin? Ich habe zwar die inputbox und ich kann auch mit der Maus auf die Zelle gehen, jedoch den Wert ändert er nicht(wenn ich diesen in der inputbox eingebe). Hab es mal probiert, klappte nicht.
Gruß Michael
Public Sub InputBoxSelectRange()
Dim rngSelect As Range
Dim msgTitel As String
msgTitel = "Demo - Zellbereich markieren mit InputBox"
On Error Resume Next
Set rngSelect = Application.InputBox _
(Prompt:="Bitte einen Zellbereich auf dem Tabellenblatt " & _
"markieren..." & vbCrLf & vbCrLf & "Um mehrere Bereiche " & _
"zu markieren, halten Sie die Strg-Taste gedrückt und " & _
"markieren Sie den nächsten Bereich.", _
Title:=msgTitel, Type:=8)
ActiveSheet.rngSelect.Range = InputBox("Geben Sie eine Zahl ein", Eingabe, "0")
' Ab hier ist reine kontrolle ob das überhaupt klappt und weil es klappt und ich keine Ahnung
' habe übernehme ich es einfach
If Not rngSelect Is Nothing Then
MsgBox "Folgender Bereich wurde ausgewählt:" & vbCrLf & _
rngSelect.Address, , msgTitel
ActiveSheet.rngSelect.Range = InputBox("Geben Sie eine Zahl ein", Eingabe, "0")
'rngSelect.Interior.Color = RGB(255, 5, 0)
Else
MsgBox "Sie haben keinen Bereich ausgewählt !", _
vbOKOnly + vbInformation, msgTitel
End If
End Sub