Office: "=Wenn" in VBA in eine hochzählende .range einbauen

Helfe beim Thema "=Wenn" in VBA in eine hochzählende .range einbauen in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo Liebe Community, Ich bin aktuell dabei die Formeln für mehrere Spalten (z.B. P2:P8731) eines Photovoltaikprojekts in VBA zu programmieren. Nun... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von AssImÄrmel, 12. November 2022.

  1. "=Wenn" in VBA in eine hochzählende .range einbauen


    Hallo Liebe Community,
    Ich bin aktuell dabei die Formeln für mehrere Spalten (z.B. P2:P8731) eines Photovoltaikprojekts in VBA zu programmieren. Nun gibt es Formeln, welche erst nach einer Wenn-Abfrage greifen sollen. If Then Abfragen sind mir bekannt, nur fällt es mir schwer diese in dem Fall einzubauen.
    Vielleicht könnt ihr mir weiterhelfen, ich würde mich über Lösungsvorschläge freuen :)!

    'Azimut
    Dim azimut As Long
    With Tabelle3
    azimut = .Range("H" & "L" & .Rows.Count).End(xlUp).Row
    .Range("P2:P" & azimut).Formula = "=WENN(F2+$B$10/60<=12+(15-$B$8)/15-H2/60;ARCCOS(L2)/$B$2;360-ARCCOS(L2)/$B$2)"

    End With
     
    AssImÄrmel, 12. November 2022
    #1
  2. RPP63_neu
    RPP63_neu Erfahrener User
    Moin!
    Zunächst mal programmierst Du nicht, sondern willst Formeln per VBA in eine Spalte schreiben.
    Eine deutsche Formel musst Du mit .FormulaLocal übergeben.

    Was soll folgendes bezwecken:
    .Range("H" & "L" & .Rows.Count).End(xlUp).Row
    dann kannst Du doch gleich schreiben:
    .Range("HL1048576").End(xlUp).Row
    Ist das so gewollt?

    Gruß Ralf
     
    RPP63_neu, 12. November 2022
    #2
    1 Person gefällt das.
  3. Moin Ralf, das FormulaLocal hat gut geklappt, allerdings trägt es die Formel nur in die erste Zelle ein. Habe bereits deine Idee zur .Range probiert, leider ohne Erfolg. Meine Range soll dazu führen, dass die Formel in allen Spalten greift/steht, wo in derselben Zeile H und L auch etwas drin steht. (die Zellen benötige ich für die Formel)
    Komischerweise funktioniert das ganze (meine .Range) bei 5 Spalten und bei 2 Spalten nicht.
    Gruß Hannes
     
    AssImÄrmel, 12. November 2022
    #3
  4. "=Wenn" in VBA in eine hochzählende .range einbauen

    Update: Konnte nun alles Lösen, vielen Dank für deine Hilfe!
     
    AssImÄrmel, 12. November 2022
    #4
Thema:

"=Wenn" in VBA in eine hochzählende .range einbauen

Die Seite wird geladen...
  1. "=Wenn" in VBA in eine hochzählende .range einbauen - Similar Threads - =Wenn VBA hochzählende

  2. zeilenweise Zellen per VBA verbinden

    in Microsoft Excel Hilfe
    zeilenweise Zellen per VBA verbinden: Guten Morgen zusammen, ich möchte beginnend ab der Zeile/Zelle A29 den Bereich A29:E29 per MERGE verbinden sowie jeweils zeilenweise eine individuelle Anzahl an Zeilen im jeweils gleichen Bereich...
  3. VBA Summe bilden

    in Microsoft Excel Hilfe
    VBA Summe bilden: Hallo zusammen, in meiner per VBA generierten Tabelle mit unterschiedlicher Anzahl Zeilen möchte ich in Spalte D die Summe bilden, als von D1 bis Dx. Meine Formel bei 12 Zeilen:...
  4. [VBA] CSV einlesen, mit zeilennummer

    in Microsoft Excel Hilfe
    [VBA] CSV einlesen, mit zeilennummer: Hallo zusammen, ich versuche eine CSV einzulesen, das klappt recht gut. Jedoch wrüde ich gerne ein Zeilennummer (ID, Messpunkt) vor meine Daten schreiben lassen. doch wie mache ich das ohne...
  5. Per VBA Zeilen einfügen und danach in diese Texte kopieren

    in Microsoft Excel Hilfe
    Per VBA Zeilen einfügen und danach in diese Texte kopieren: Hallo zusammen, ich möchte im 1. Schritt via VBA-Code eine bestimmte, variable Anzahl Zeilen (der Wert wird immer im Reiter "Data" in der Zelle S32 ermittelt) in einem anderen Reiter namens...
  6. VBA Code für Zeilen ausblenden einblenden mit JA/Nein

    in Microsoft Excel Hilfe
    VBA Code für Zeilen ausblenden einblenden mit JA/Nein: Hallo, habe eine Exceltabelle, bei der ich bei einer Zelle eine Ja/Nein abfrage mache, wenn in der Zelle Nein steht, dann soll ein bestimmter Zeilenbereich, den ich definieren möchte, ausgeblendet...
  7. Excel Range als Bild in Word einfügen

    in Microsoft Excel Hilfe
    Excel Range als Bild in Word einfügen: Hallo, ich möchte gerne per Makro in einem Wordtemplate Mustergrafiken, die als Platzhalter dienen durch Bereiche in meiner Exceldatei ersetzen, die ich als Bild einfüge. Per Hand mache ich das...
  8. VBA Verlust der Muttersprache (Mid)

    in Microsoft Access Hilfe
    VBA Verlust der Muttersprache (Mid): Hallo, If Len(Me.TxMat) = 10 And IsNumeric(Me.TxMat) Then Me.TxMat = Left(Me.TxMat, 4) & "." & mID(Me.TxMat, 5, 2) & "." & Right(Me.TxMat, 4) End IfDieser Codeschnipsel soll aus 1234567890 in...
Schlagworte:
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden