Beträge in Formeln umwandeln möglich?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub FormelErstellen() Dim Bereich As Range Dim meAr, A As Long Const sFormel$ = "/1,19" Set Bereich = Range("A3", Cells(Rows.Count, 2).End(xlUp)) meAr = Bereich.Value2 For A = 1 To Ubound(meAr) If meAr(A, 1) <> "" Then meAr(A, 1) = "=" & meAr(A, 1) & sFormel End If If meAr(A, 2) <> "" Then meAr(A, 2) = "=" & meAr(A, 2) & sFormel End If Next A Bereich.FormulaLocal = meAr End Sub Sub FormelLoeschen() Dim Bereich As Range Dim meAr, A As Long Const sFormel$ = "/1,19" Set Bereich = Range("A3", Cells(Rows.Count, 2).End(xlUp)) meAr = Bereich.FormulaLocal For A = 1 To Ubound(meAr) If InStr(meAr(A, 1), sFormel) > 0 Then meAr(A, 1) = Replace(meAr(A, 1), sFormel, "") End If If InStr(meAr(A, 2), sFormel) > 0 Then meAr(A, 2) = Replace(meAr(A, 2), sFormel, "") End If Next A Bereich.FormulaLocal = meAr Bereich.Value = Bereich.Value End Sub

Sub Umwandeln() Dim Zelle As Range For Each Zelle In ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants, 1) If Zelle.NumberFormat = "$#,##0.00_);[Red]($#,##0.00)" Then Zelle.FormulaLocal = "=" & Zelle.Value & "/1,19" End If Next End Sub

Sub WerteInFormelnUmwandeln() Dim rngZelle As Range 'Alle Zellen der Spalte A (ab A3), die keine Formel enthalten, 'nicht leer sind und numerische Werte enthalten mit Zusatz ' "/1,19" als Formel umwandeln : For Each rngZelle In Range("A3:A" & Cells(Rows.Count, 1).End(xlUp).Row) If Not rngZelle.HasFormula And _ IsNumeric(rngZelle.Value) And _ rngZelle "" Then rngZelle.Formula = "=" & rngZelle.Formula & "/1.19" End If Next End Sub

Hallo,
für die Spalten die als Überschrift Differenz, Ergebnis oder Summe enthalten,
auch wenn Du schon eine Lösung hast.

Const sngMWST As Single = 1.19 'Berechnungsfaktor 

Sub MWST_Abziehen()
Dim Bereich As Range
Dim meAr, A As Long, AA As Long

Set Bereich = Tabelle1.UsedRange
meAr = Bereich.FormulaLocal

For AA = 1 To Ubound(meAr, 2)
    If InStr("Differenz;Ergebnis;Summe", meAr(1, AA)) > 0 And meAr(1, AA) <> "" Then
       For A = 2 To Ubound(meAr)
           If meAr(A, AA) <> "" And IsNumeric(meAr(A, AA)) Then
               meAr(A, AA) = meAr(A, AA) / sngMWST
           End If
       Next A
    End If
Next AA

Bereich.FormulaLocal = meAr
End Sub

Sub MWST_Dazu()
Dim Bereich As Range
Dim meAr, A As Long, AA As Long

Set Bereich = Tabelle1.UsedRange

meAr = Bereich.FormulaLocal

For AA = 1 To Ubound(meAr, 2)
    If InStr("Differenz;Ergebnis;Summe", meAr(1, AA)) > 0 And meAr(1, AA) <> "" Then
       For A = 2 To Ubound(meAr)
           If meAr(A, AA) <> "" And IsNumeric(meAr(A, AA)) Then
               meAr(A, AA) = meAr(A, AA) * sngMWST
           End If
       Next A
    End If
Next AA

Bereich.FormulaLocal = meAr
End Sub

Gruß Tino

Beliebteste Forumthreads (12 Monate)

Beträge in Formeln umwandeln möglich?

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Beträge in Formeln umwandeln möglich?

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread