Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
23.04.2024 17:00:22
Summe und Ausgabe
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1616to1620
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1616to1620
1616to1620
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dynamisch einen Fomelstring aufbauen- VBA

Dynamisch einen Fomelstring aufbauen- VBA
03.04.2018 15:52:24
Nilo
Hi zusammen,
ich hoffe ihr könnt mir kurz helfen!
Ich habe eine Tabelle
In der Tabelle habe ich per Formeln Bezüge für den Index hergestellt.
Beispiel für: F$6&$C$6
F6:
  • [dieseDaten.xlsx]Daten

    • ist immer Fix auf F6!
    C6:
  • =SVERWEIS(B3;Spalten!A:C;3;0)

    • in C6 steht als Bezug z.B. !AB:AB
    Am Ende habe ich mehrere Bezüge per Index in eine Formel gepackt.
    Das klappt sehr gut da ich somit dynamisch meine Berechnungen quasi zusammenstecken kann.
    Blöd ist jetzt das die Formel in ihren Bezügen nicht dynamisch ist!
    Wenn in der ug Formel zb INDIREKT(F$6&$C$8);$D$8 C8 oder D8 leer ist haut das nicht hin.
    Ich dachte jetzt mit VBA könnte ich die einzelnen Blöcke quasi als Stringblöcke vordefinieren und abfragen ob der Bezug leer ist oder nicht und danch den Formelstring dynamisch aufbauen.
    Es geht um die Fettgedruckten Bezüge:
  • =WENNFEHLER(SUMMEWENNS(INDIREKT(F$6&$C$3);INDIREKT(F$6&$C$6);$D$6;INDIREKT(F$6&$C$7);$D$7;INDIREKT(F$6&$C$8);$D$8;INDIREKT(F$6&$C$9);$D$9;INDIREKT(F$6&$C$10);$B11);"n.a")

    • Als Beispiel:
    C8 = leer
    D8 = leer
    Dann würde dieser Block wegfallen: INDIREKT(F$6&$C$8);$D$8
    Dann so:
  • =WENNFEHLER(SUMMEWENNS(INDIREKT(F$6&$C$3);INDIREKT(F$6&$C$6);$D$6;INDIREKT(F$6&$C$7);$D$7;INDIREKT(F$6&$C$9);$D$9;INDIREKT(F$6&$C$10);$B11);"n.a")

    • Wie könnte der Formelstring in VBA aufgebaut werden?
    Die Anzahl der möglichen Bezüge wäre Fix auf 6 eingestellt
    Also:
    INDIREKT(F$6&$C$6)$D$6
    INDIREKT(F$6&$C$7);$D$7
    INDIREKT(F$6&$C$8);$D$8
    INDIREKT(F$6&$C$9);$D$9
    INDIREKT(F$6&$C$10);$D$10
    INDIREKT(F$6&$C$11);$D$11
    Ich hoffe das ist verständlich erklärt.
    Danke für eine Rückmeldung und Gruß
    Nilo
    Ich habe da keinen Plan

    6
    Beiträge zum Forumthread
    Beiträge zu diesem Forumthread

    Betreff
    Datum
    Anwender
    Anzeige
    AW: Dynamisch einen Fomelstring aufbauen- VBA
    03.04.2018 16:26:56
    ChrisL
    Hi Nilo
    Wie eine solche Datenbasis entstehen kann, entzieht sich meiner Vorstellungskraft.
    Vielleicht so... 
    Sub t()
Dim i As Integer, s As String
If Range("F6") = "" Or WorksheetFunction.CountBlank(Range("C6:C11")) = 6 Or _
WorksheetFunction.CountBlank(Range("D6:D11")) = 6 Then Exit Sub
For i = 6 To 11
If Not Cells(i, 3) = "" And Not Cells(i, 4) = "" Then
s = s & ",INDIRECT(F$6&$C$" & i & "),$D$" & i
End If
Next i
Range("A1").Formula = "=IFERROR(SUMIFS(INDIRECT(F$6&$C$3)" & s & "),""n.a."")"
End Sub
    cu
    Chris
    Anzeige
    AW: Dynamisch einen Fomelstring aufbauen- VBA
    03.04.2018 19:36:44
    onur
    Warum willst du vba benutzen, um Formeln in zellen zu schreiben, statt alles direkt mit vba zu lösen?
    Kurzes Feedback...
    03.04.2018 22:07:41
    Nilo
    Hi zurück,
    erstmal @ Chris: vielen Dank, so was hab ich versucht und selbst nicht hinbekommen.
    Läuft perfekt :)
    @ Onur: eine einfache VBA Anweisung habe ich mir schon diverse aus dem Netz zusammengesucht,
    aber beim erweitern und dynamisch halten steig ich dann wieder aus. Da bin ich eher der Formeltyp
    da ich die wiederum besser interpretieren kann.
    Sowas wie oben geht natürlich auch nur mit Formeln und Hilfsspalten etc. aber mit dem Konstrukt muss ich die Formelebene nicht verlassen.
    Mal doof gefrag: wie würde den das VBA zu der og Formel aussehen? Ich habe da keinen Plan!
    VG
    Nilo
    Anzeige
    AW: Kurzes Feedback...
    03.04.2018 23:06:04
    onur
    Keine Ahnung, ich analysiere nicht irgendwelche Formeln von Anderen.
    Solltest schon sagen, was genau du erreichen willst.
    AW: Kurzes Feedback...
    04.04.2018 13:03:44
    Nilo
    Hi Onur,
    Prinzipiell so wie die genannte Summewenns Formel!
    Ohne Indirekt dann so:
    =WENNFEHLER(SUMMEWENNS([Daten.xlsx]Tabelle2!$AL:$AL;[Daten.xlsx]Tabelle2!$H:$H;$D$6; [Daten.xlsx]Tabelle2!$AB:$AB;$D$7;[Daten.xlsx]Tabelle2!$AS:$AS;$D$8;[Daten.xlsx]Tabelle2!$AQ:$AQ; $D$9;[Daten.xlsx]Tabelle2!$AM:$AM;$D$10;[Daten.xlsx]Tabelle2!$L:$L;$B$12);"n.a.")
    Die Kriterien stehen dann in den Zellen im aktuellen Blatt oder wo auch immer!
    Wie würde für diese Formel jetzt eine Fkt oder VBA aussehen wenn zugleich dynmisch bleiben soll
    dass wenn ich [Daten.xlsx]Tabelle2!$AM:$AM;$D$10; nicht als Krtierium angeben will es auch möglich ist?
    Wenn Du da eine Idee hast!?
    Danke und Gruß
    Nilo
    Anzeige
    AW: Kurzes Feedback...
    04.04.2018 13:34:55
    onur
    Wie gesagt, "ich analysiere nicht irgendwelche Formeln von Anderen".
    WAS soll die Formel GENAU machen (Am Besten mal mit Beispieldatei)?

    311 Forumthreads zu ähnlichen Themen

    Hintergrundfarbe in Zahl umwandeln
    Timo

    Hallo zusammen.
    Gibt es über VBA eine Möglichkeit, die Hintergrundfarbe einer Zelle in eine Zahl umzuwandeln und das schneller als mit for- Schleifen?
    Habe einen Bereich ("J16:AG39"), wo ich per Zellaktivierung mit der Maus Zellen oder auch Zellbereiche mit einer Hintergrundfarbe verseh...
    07.08.2008 19:30:00
    Thread-ID: 1000082
    4 Beiträge
    Anzeige
    Zahl vorn/hinten vom Text trennen + Komma
    StefanK

    Hallo Excel-Freunde
    ich möchte gern per Formel folgendes lösen:
    in zelle a3 steht
    1 haley, bill rock around the clock 1956
    jetzt soll in b3 die "1" stehen --- löse ich per Formel mit =LINKS(A3;SUCHEN(" ";A3)-1)
    in e3 soll "1956" stehen --- löse ich mit Array-Formel {=...
    25.09.2008 19:00:21
    Thread-ID: 1012407
    12 Beiträge
    Textbox Ausgabe als Zahl bzw. Zeit formatieren
    Steffan

    Hallo ihr lieben,
    ich schreib jetzt schon den ganzen Tag an folgender Routine:
    Private Sub CommandButton1_Click() Dim z As Integer z = Range("I101").End(xlUp).Row + 1 TextBox1 = Format(CDate(TextBox1.Value), "dd.mm.yyyy") Cells(z, 9) = TextBox1 'Datum des Tauchgangs Cells(z, 12) = Tex...
    28.09.2008 20:12:56
    Thread-ID: 1012988
    6 Beiträge
    Anzeige
    Zahlen rechtsbündig in einer Textbox
    Helmut

    Hallo,
    ich habe einen Textstring mit Zahlen die ich rechstbündig anordnnen will.
    Text= "Beisiel: " & Format (Zahl,"#,###")
    Wie wird die Zahl im Formatbefehl z.B rechtsbündig bei max 6 Stellen ausgegeben?
    Gruß
    Helmut
    04.11.2008 11:57:00
    Thread-ID: 1021556
    2 Beiträge
    Zahl eingeben und per VBA formatieren
    Herbert

    Hallo Gemeinde
    Ich habe eine Zelle in einem .xlt, dort soll der User eine Zahl eingeben und mit dem Changeereignis
    soll die Zahl in der Form JJ/###A umgewandelt werden.
    Beispiel: 201 soll 08/201A werden. Das, was ich hier verbrochen habe, funst nicht, kann mir jemand helfen?
    P...
    05.11.2008 16:08:10
    Thread-ID: 1021969
    12 Beiträge
    Textzahl umwandeln
    Stephan

    Hallo zusammen,
    ich habe folgendes Problem:
    Mit dem u. a. Code werden Zeilen aus einer Datei in eine andere kopiert. Die Spalte B (B2:B65535) der Zieldatei ("Auswertung.xls)" soll nun aber zusätzlich noch mit 1 multipliziert werden, da diese ein Datum als Textzahl enthält und dieses in...
    10.11.2008 11:12:00
    Thread-ID: 1023147
    22 Beiträge
    Nur Zahlen in sehr vielen Textboxen
    uli

    Hallo,
    habe ein im Internet gefunden, der allerdings noch ein bisschen angepasst werden muss. Vielleicht könnt ihr mir helfen, da ich an dieser Stelle nicht mehr weiterkomme.
    Ich möchte die Eingabe von Buchstaben in mehreren Textboxen verbieten. Dies mache ich mit folgendem Code in eine...
    13.11.2008 10:24:00
    Thread-ID: 1024091
    3 Beiträge
    TextBox Inhalte sollen Zahlen sein
    Frank

    Hallo Zusammen!!!
    Mit folgendem Code:
    Private Sub CommandButton2_Click() If Me.TextBox1.Value = "" Then MsgBox "Sie müssen ein Datum eingeben" Exit Sub End If If Me.TextBox2.Value = "" Then MsgBox "Sie müssen eine Anfangszeit eingeben " Exit Sub End If If Me.TextBox3.Value = "" Then M...
    17.11.2008 21:37:00
    Thread-ID: 1025414
    8 Beiträge
    Anzeige

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Anzeige
    Archiv - Verwandte Themen
    Forumthread
    Beiträge
    3
    5
    11
    5
    3
    1
    11
    21
    2
    7
    4
    3
    3
    2
    1
    8
    5
    4
    21
    3
    5
    2
    2
    6
    4