Beim Schreiben der Formel in Zelle C1 lief der Makrorekorder mit. Er liefert folgenden Code:
Sub Formel_mit_Rekorder()
'
' Formel_mit_Rekorder Makro
' Makro am 24.10.2009 von Jürgen Hennekes aufgezeichnet
'
Range("C1").Select
ActiveCell.FormulaR1C1 = "=SUM(R[1]C[-2]:R[4]C[-2])"
Range("C2").Select
End Sub
Ohne Rekorder läßt sich die Formel, hier in C2, auch über FormulaLocal in der bekannten Schreibweise eintragen.
Es wird dabei die in Excel eingestellte Sprache verwendet.
Public Sub Formel_ohne_Rekorder()
Range("C2").FormulaLocal = "=Summe(A2:A5)"
End Sub
---------------------------------------------------------------------------------------------------------------------------------------
Beim nächsten Beispiel wird in Zelle B2 eine Sverweis-Formel eingetragen und durch Doppelklick auf das Ausfüllkästen bis zum letzen Eintrag in Spalte A übernommen. Wieder lief der Rekorder mit.
Sub Sverweis_mit_Rekorder()
'
' Sverweis_mit_Rekorder Makro
' Makro am 24.10.2009 von Jürgen Hennekes aufgezeichnet
'
Range("B2").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],R2C5:R6C6,2,0)"
Range("B2").Select
Selection.AutoFill Destination:=Range("B2:B4")
Range("B2:B4").Select
End Sub
Die Alternative per FormulaLocal, wobei die Formel sofort in den Bereich B2 bis B4 geschrieben wird.
Public Sub Sverweis_ohne_Rekorder()
Range("B2:B4").FormulaLocal = "=sverweis(A2;$E$2:$F$6;2;0)"
End Sub
Ist der Bereich nicht bekannt, so kann er zunächst ermittelt werden.
Public Sub Sverweis_ohne_Rekorder2()
Dim lngLetzteZeile As Long
lngLetzteZeile = Range("A65536").End(xlUp).Row '<- Unterste belegte Zeile in Spalte A
Range("B2").FormulaLocal = "=sverweis(A2;$E$2:$F$6;2;0)"
Range("B2").AutoFill Destination:=Range("B2:B" & lngLetzteZeile)
End Sub
---------------------------------------------------------------------------------------------------------------------------------------
Nun soll der Vorname ebenfalls in Spalte B eingetragen werden.
Hier ist nun zu beachten, dass die Anführungszeichen, welche den Abstand zwischen Vor- und Nachname bilden, im Code doppelt eingegeben werden müssen.
Public Sub Sverweis_ohne_Rekorder3()
Range("B2:B4").FormulaLocal = "=sverweis(A2;$E$2:$G$6;2;0)&"" ""&sverweis(A2;$E$2:$G$6;3;0)"
End Sub
---------------------------------------------------------------------------------------------------------------------------------------
Abschließend noch ein Beispiel für das Eintragen per Schleife. In den Zellen der Spalte A, Reihe 1 bis 10, also A1:A10 soll eine Summenformel geschrieben werden.
Hier wurde nun die Cells-Schreibweise genommen: Cells(Zeile,Spalte)
Public Sub Formel_per_Schleife()
Dim lngZ As Long
For lngZ = 1 To 10
Cells(lngZ, 1).FormulaLocal = "=summe(" & Cells(lngZ, 2).Address & ":" & Cells(lngZ, 3).Address & ")"
Next
End Sub
Oder ohne Dollarzeichen
Public Sub Formel_per_Schleife2()
Dim lngZ As Long
For lngZ = 1 To 10
Cells(lngZ, 1).FormulaLocal = "=summe(" & Cells(lngZ, 2).Address(0, 0) & ":" & Cells(lngZ, 3).Address(0, 0) & ")"
Next
End Sub
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
