SelectionCange aus laufendem Makro abfragen ????
30.12.2003 16:06:00
Candy
Ich bin da nich so der Könner und brauche da mal schnell Hilfe.
Hab da folgendes Problem, wie kann ich aus einer laufenden Procedur den Benutzer eine Zelle auswählen lassen und darin einen wert in die Zelle eintragen lassen ???
Ich denke mal, ich habe genügend Kommentare verteilt, das so jeder damit etwas anfangen kann.
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Berechnung 'Unterprog. zur Neuberechnung der Tabelle
End Sub
'Transfer der Währungsumrechnung
Sub EuroTransfer() 'wird aufgerufen durch Button
Dim Euros As Integer
Dim neueZelle As Range
'mehrere Zellen vom Benutzer auswählen lassen und summieren
Euros = Application.Sum(Range(ActiveWindow.RangeSelection.Address))
'Tabelle wechseln
sheets("Reisekostenabrechnung").Select
MsgBox "auf Zelle klicken"
'TJA, HIER MÜSSTE IRGENDETWAS STEHEN WIE ZUM BEISPIEL
'BLA_SelectionChange
'ähm keine Ahnung.......
'wie kann ich hier darauf warten lassen, das auf
'eine Zelle geklickt wird
'Summenwert in angeklickte Zelle einfügen
Range(ClickZelle).Value = Euros
End Sub