Range(gesuchteZelle1:gesuchteZelle2)
01.03.2018 13:40:46
Jakob
ich muss vorausschicken: Meine VBA-Kenntnisse sind absolut redumentär und rekorderabhängig. Ich habe alles mir momentan Mögliche versucht, habe jetzt aber aufgegeben und hoffe auf Hilfe :-)
Ich möchte Zwischensummen einer rießigen Axceltapeten rausziehen, die völlig unterscheidlich aufgebaut sind. Dafür benötige ich eine Suchefunktion, die einen Bereich zwischen zwei Zellen in einer Summenformel zusammenfasst. Hier mein Versuch:
- suche nach Zelle 1 mit Inhalt "Start" und speichere Position in Variable 1
- suche nach Zelle 2 mit Inhalt "Ende" und speichere Position in Variable 2
- suche nach Zelle 3 mit Inhalt "Summe", Offset 1 nach rechts, schreibe Summenformel mit Range = Bereich zwiscchen Variable 1 und Variable 2
Meine Code-Schnipsel (oder Misachtung jeglicher VBA-Syntax) sehen so aus:
Sub Makro34()
Dim Variable1 As String
Dim Variable2 As String
Cells.Find(What:="Start", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
AcitveCell.Range = Variable1
Cells.Find(What:="Ende", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
AcitveCell.Range = Variable2
Cells.Find(What:="Hier", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Offset(0, 1).FormulaR1C1 = "=SUM(Variable1:Variable2)"
End Sub
Viele Grüße!
Jakob