Thema Datum  Von Nutzer Rating
Antwort
Rot Formel von Excel funktioniert in VBA nicht
 24.01.2025 18:19:52 Monika
Solved
24.01.2025 21:12:40 Gast31280
Solved
26.01.2025 10:12:06 Gast40556
Solved
27.01.2025 12:35:21 Monika
Solved
25.01.2025 01:55:25 Gast7777
Solved
25.01.2025 02:04:15 Gast7777
Solved

Ansicht des Beitrags:
Von:
Monika		 Datum:
24.01.2025 18:19:52		 Views:
279		 Rating:
     
Antwort:
 Nein
Thema:
Formel von Excel funktioniert in VBA nicht

Hallo hae folgende Formel die in Excel einwandfrei funktioniert.

=WENN(WENN(ISTNV(SVERWEIS(SVERWEIS("*"&LINKS(G2;10)&"*";Verrechnungsdaten!A:A;1;FALSCH);Verrechnungsdaten!A:C;2;FALSCH));(Y2-Verrechnungsdaten!$E$2);WENN(SVERWEIS(SVERWEIS("*"&LINKS(G2;10)&"*";Verrechnungsdaten!A:A;1;FALSCH);Verrechnungsdaten!A:C;2;FALSCH)=0;0;WENN(SVERWEIS(SVERWEIS("*"&LINKS(G2;10)&"*";Verrechnungsdaten!A:A;1;FALSCH);Verrechnungsdaten!A:C;2;FALSCH)>0;(Y2-SVERWEIS(SVERWEIS("*"&LINKS(G2;10)&"*";Verrechnungsdaten!A:A;1;FALSCH);Verrechnungsdaten!A:C;2;FALSCH));)))<=0;0;WENN(ISTNV(SVERWEIS(SVERWEIS("*"&LINKS(G2;10)&"*";Verrechnungsdaten!A:A;1;FALSCH);Verrechnungsdaten!A:C;2;FALSCH));(Y2-Verrechnungsdaten!$E$2);WENN(SVERWEIS(SVERWEIS("*"&LINKS(G2;10)&"*";Verrechnungsdaten!A:A;1;FALSCH);Verrechnungsdaten!A:C;2;FALSCH)=0;0;WENN(SVERWEIS(SVERWEIS("*"&LINKS(G2;10)&"*";Verrechnungsdaten!A:A;1;FALSCH);Verrechnungsdaten!A:C;2;FALSCH)>0;(Y2-SVERWEIS(SVERWEIS("*"&LINKS(G2;10)&"*";Verrechnungsdaten!A:A;1;FALSCH);Verrechnungsdaten!A:C;2;FALSCH));))))

Ich kann Sie aber nicht in eine VBA Formel umwandeln.

Gesamter Code

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Sub Spalte_ACNEUNEU()
    Dim ws As Worksheet
    Dim ersteLeereZeileA As Long
    Dim ersteLeereZeileAC As Long
    Dim ACRange As Range
    Dim formulaPart1 As String
    Dim formulaPart2 As String
    Dim formulaPart3 As String
    Dim fullFormula As String
 
    ' Arbeitsblatt definieren
    Set ws = ThisWorkbook.Sheets("XXX")
 
    ' Bestimmt erste leere Zeilen
    ersteLeereZeileA = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row + 1
    ersteLeereZeileAC = ws.Cells(ws.Rows.Count, "AC").End(xlUp).Row + 1
 
    ' Bereich definieren
    If ersteLeereZeileAC < ersteLeereZeileA Then
        Set ACRange = ws.Range("AC" & ersteLeereZeileAC & ":AC" & (ersteLeereZeileA - 1))
         
        ' Formel in Teile aufteilen
        formulaPart1 = "=IFNA(IF(VLOOKUP(VLOOKUP(""*""&LEFT(G" & ersteLeereZeileAC & _
            ",10)&""*"",Verrechnungsdaten!A:A,1,FALSE),Verrechnungsdaten!A:C,2,FALSE),"
        formulaPart2 = "(Y" & ersteLeereZeileAC & "-Verrechnungsdaten!$E$2),IF(VLOOKUP(VLOOKUP(""*""&LEFT(G" & _
            ersteLeereZeileAC & ",10)&""*"",Verrechnungsdaten!A:A,1,FALSE),Verrechnungsdaten!A:C,2,FALSE)=0,0,"
        formulaPart3 = "IF(VLOOKUP(VLOOKUP(""*""&LEFT(G" & ersteLeereZeileAC & _
            ",10)&""*"",Verrechnungsdaten!A:A,1,FALSE),Verrechnungsdaten!A:C,2,FALSE)>0,(Y" & _
            ersteLeereZeileAC & "-VLOOKUP(VLOOKUP(""*""&LEFT(G" & ersteLeereZeileAC & _
            ",10)&""*"",Verrechnungsdaten!A:A,1,FALSE),Verrechnungsdaten!A:C,2,FALSE))))<=0,0))"
         
        ' Formel zusammenfügen
        fullFormula = formulaPart1 & formulaPart2 & formulaPart3
         
        ' Formel in Bereich einfügen
        ACRange.Formula = fullFormula
        ACRange.NumberFormat = "General"
    End If
End Sub

Code hängt immer bei ACRange.Formula = fullFormula

An was liegt das - komme leider selbst nicht mehr weiter, ev. gibt es auch eine andere Möglichkeit die Formel in die Spalte inzufügen.

Vielen Dank schon mal im Voraus.

Monika

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Formel von Excel funktioniert in VBA nicht
 24.01.2025 18:19:52 Monika
Solved
24.01.2025 21:12:40 Gast31280
Solved
26.01.2025 10:12:06 Gast40556
Solved
27.01.2025 12:35:21 Monika
Solved
25.01.2025 01:55:25 Gast7777
Solved
25.01.2025 02:04:15 Gast7777
Solved