Willkommen

Pivottabelle

Spezialfilter

Formeln

Zellformate

Bedingte Formate

Gültigkeit

Programmierung

UDF - Funktionen

Tipps & Tricks

Webabfrage

Fehlersuche

Farbindex

Shortcuts

Limitationen

Downloads

Links

Kontakt

Disclaimer

Impressum

Formel eintragen
Nachfolgend einige Beispiele zum Eintragen einer Formel per Makro
 
 
Summe
 ABC
1Werte 10
21 10
32  
43  
54  
Formeln der Tabelle
C1 : =SUMME(A2:A5)
C2 : =SUMME(A2:A5)
 
Diagramm - Grafik - Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download  
 
 
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
 
 
---------------------------------------------------------------------------------------------------------------------------------------
 
Sverweis
 ABCDEF
1PersonalNrName  PersonalNrName
2002Meier  001Müller
3004Mustermann  002Meier
4005Musterfrau  003Schmitz
5    004Mustermann
6    005Musterfrau
Formeln der Tabelle
B2 : =SVERWEIS(A2;$E$2:$F$6;2;0)
B3 : =SVERWEIS(A3;$E$2:$F$6;2;0)
B4 : =SVERWEIS(A4;$E$2:$F$6;2;0)
 
Diagramm - Grafik - Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download  
 
 
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.
 
 
Sverweis (2)
 ABCDEFG
1PersonalNrName  PersonalNrNameVorname
2002Meier Herbert  001MüllerPeter
3004Mustermann Fritz  002MeierHerbert
4005Musterfrau Helga  003SchmitzToni
5    004MustermannFritz
6    005MusterfrauHelga
Formeln der Tabelle
B2 : =SVERWEIS(A2;$E$2:$G$6;2;0)&" "&SVERWEIS(A2;$E$2:$G$6;3;0)
B3 : =SVERWEIS(A3;$E$2:$G$6;2;0)&" "&SVERWEIS(A3;$E$2:$G$6;3;0)
B4 : =SVERWEIS(A4;$E$2:$G$6;2;0)&" "&SVERWEIS(A4;$E$2:$G$6;3;0)
 
Diagramm - Grafik - Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download  
 
 
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.
 
 
Per Schleife
 ABCD
11 12
23 34
35 56
47 78
59 910
611 1112
713 1314
815 1516
917 1718
1019 1920
Formeln der Tabelle
A1 : =SUMME($B$1:$C$1)
A2 : =SUMME($B$2:$C$2)
A3 : =SUMME($B$3:$C$3)
A4 : =SUMME($B$4:$C$4)
A5 : =SUMME($B$5:$C$5)
A6 : =SUMME($B$6:$C$6)
A7 : =SUMME($B$7:$C$7)
A8 : =SUMME($B$8:$C$8)
A9 : =SUMME($B$9:$C$9)
A10 : =SUMME($B$10:$C$10)
 
Diagramm - Grafik - Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download  
 
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