Range aus aktivierter Zelle als Variable
26.09.2017 08:17:05
kubden82
ich habe ein Makro, dass mir die Zellen sucht, in denen zwei bestimmte Daten stehen (z.B. 04.01.2017 und 10.01.2017). Diese Zellen benötige ich nun für eine Autovervollständigung. D.h. ich ändere die Formel in der ersten "beginn"-Zelle und dann soll er per AutoFill bis zur "ende"-Zelle die Formel ändern.
Hier mein Gesamtmakro:
Sub Finden()
Dim rngbeginn As Range
Dim sFindBeginn As String
Dim beginn As Range
Dim rngende As Range
Dim sFindEnde As String
Dim ende As Range
Dim stdAlt As String
sFindBeginn = InputBox("Anfangsdatum:")
sFindBeginn = CDate(sFindBeginn)
sFindEnde = InputBox("Enddatum:")
sFindEnde = CDate(sFindEnde)
stdAlt = InputBox("alte Tagesstundenzahl:")
Set rngende = Range("AR:AR").Find(What:=CDate(sFindEnde))
rngende.Select
Selection.Offset(rowOffset:=0, ColumnOffset:=-41).Select
' hier müsste der Range der aktuellen Selection an ende übergeben werden
Set rngbeginn = Range("AR:AR").Find(What:=CDate(sFindBeginn))
rngbeginn.Select
Selection.Offset(rowOffset:=0, ColumnOffset:=-41).Select
' hier müsste der Range der aktuellen Selection an beginn übergeben werden
ActiveCell.Replace What:="$H$4/5", Replacement:=stdAlt, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
'Selection.AutoFill Destination:=Range("&beginn&:&ende&"), Type:=xlFillDefault ' hier wird der _
nächste fehler sein, da ich beginn und ende so nicht in den Range bekomme
Range("A1").Select
End Sub
1. hier müsste die Zelle an den Range ende bzw. beginn übergeben werden, damit man damit später arbeiten kann, eine Lösung fehlt mir noch
Set rngende = Range("AR:AR").Find(What:=CDate(sFindEnde))
rngende.Select
Selection.Offset(rowOffset:=0, ColumnOffset:=-41).Select
' hier müsste der Range der aktuellen Selection an ende übergeben werden
Selection.AutoFill Destination:=Range("&beginn&:&ende&"), Type:=xlFillDefault ' hier wird der nächste fehler sein, da ich beginn und ende so nicht in den Range bekomme
Vielen Dank