Formel einfügen wenn in A:A Werte stehen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Sepp,
vielen Dank für deine Info.
ich dachte an eine VBA-Lösung, weil ich mit der Zeit sehr viele solcher Dateien "produziert" habe, in die ich nun gerne ein solches Makro einfügen würde.
Das mit dem "nach unten ausfüllen" habe ich schon gemacht. Mit einem Makro lässt sich das doch bestimmt besser machen.
Ich habe da nicht nur die Links und Rechts Formeln, sondern würde dann auch gerne das Makro - so ich das schaffe - für andere Formeln "umbauen".
Ich bekomme es nicht hin, das die Formeln per VBA geschrieben werden, solange in der Spalte A ein Wert vorhanden ist. Wenn in A nichts mehr steht, dann soll auch keine Formel in B eingetragen werden.
Falls das mit VBA nicht geht, dann muss ich das halt mit der anderen Methode machen.
Gruss & bis morgen
Micha

Hallo Sepp,
das funktioniert wirklich prima - ich danke dir.


Sub FormelPerVBA()
Dim rng As Range
With ActiveSheet
Set rng = Range("A2:A" & Application.Max(2, .Cells(Rows.Count, 1).End(xlUp).Row))
'für B
rng.Offset(0, 1).Formula = "=LEFT(A2,2)"
' 'oder
' rng.Offset(0, 1).FormulaLocal = "=LINKS(A2;2)"
'für C
rng.Offset(0, 2).Formula = "=RIGHT(A2,2)"
' 'oder
' rng.Offset(0, 2).FormulaLocal = "=RECHTS(A2;2)"
End With
Set rng = Nothing
End Sub

Noch eine Frage hätte ich - vielleicht hast dazu auch eine Lösung für mich:
rng.Offset(0, 1).FormulaLocal = "=LINKS(A2;2)" könnte diese Zelle dann evtl. auch im Zahlenformat 0# (z.B. 08) formatiert werden?
Mit dem Recorder aufzeichnen und dahintertippen funktioniert es nicht.


Sub format_2_Ziffern()
Selection.NumberFormat = "0#"   ' diese Zeile habe ich hinter die LINKS Zeile von dir  _
geschrieben :-(
End Sub

Es wäre toll, wenn du mir das auch so toll erklären könntest, wie die Links/Rechts Sache.
Vielen Dank schon Mal.
Gruß
Micha

Sub FormelPerVBA() Dim rng As Range With Worksheets("Euro_Deutschland") 'ActiveSheet Set rng = Range("A2:A" & Application.Max(2, .Cells(Rows.Count, 1).End(xlUp).Row)) rng.Offset(0, 1).NumberFormat = "0#" 'hier das Format eigefügt - schreibt aber immer -z. _ B.- 5 stat 05 rng.Offset(0, 1).FormulaLocal = "=LINKS(A12;1)" rng.Offset(0, 2).FormulaLocal = "=GROSS(RECHTS(A12;1))" End With Set rng = Nothing End Sub

Beliebteste Forumthreads (12 Monate)

Formel einfügen wenn in A:A Werte stehen

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

311 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Formel einfügen wenn in A:A Werte stehen

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

311 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread