Formelergebnis an Variable, Variable an Formel

Hallo zusammen,
in den letzten Wochen habe ich mir auch vor allem aufgrund dieses Forums hier erste Kenntnisse im Umgang mit VBA in Excel angeeignet. Nun komme ich allerdings an einer Stelle nicht weiter und ich hoffe, ihr koennt mir da weiterhelfen...
Ich uebernehme in meine Tabelle jeden Tag mithilfe der SummeWenn-Funktion Werte aus einer anderen Tabelle (Kontoauszug). Da ich fuer jeden Tag eine eigene Spalte habe, aendert sich somit auch der Spaltenindex jeden Tag.
Um den korrekten Spaltenindex fuer das Datum des aktuellen Kontoauszugs zu finden benutze ich die Match Funktion. Das Ergebnis dieser Match Funktion moechte ich dann einer Variablen zuordnen, um anschliessend diese Variable an den Befehl range("...54").select zu uebergeben. In diese Zelle soll daraufhin die SummeWenn-Formel eingetragen werden.
Ich hoffe das war so weit verstaendlich beschreiben...
Somit waere es eine grosse Hilfe, wenn ihr zu folgenden Fragen die Antwort haettet:
1) Wie kann ich das Ergebnis der Match-Funktion an eine Variable uebergeben? Von welchem Typ muss die Variable sein?
2) Wie kann ich daraufhin die Variable, die den benoetigten Spaltenindex als Wert besitzt, an den Range("...54").select uebergeben? Muss der Typ der Variable dazu geaendert werden?
Nachdem was ich schon alles hier gelesen habe, bin ich mir sicher, dass mein Problem fuer euch keines ist.
Sollten euch noch Infos fehlen, gebt bitte einfach kurz Bescheid.
Vielen Dank!!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Option Explicit Sub TestIt() Dim lngDate As Long Dim strDate As String Dim vntVgl As Variant strDate = "05.01.2010" With Sheets("Tabelle1") lngDate = CLng(CDate(strDate)) vntVgl = Application.Match(lngDate, .Rows(1), 0) If Not IsError(vntVgl) Then .Cells(1, vntVgl).Resize(54).Select Else MsgBox "Datum " & strDate & " in Zeile 1 nicht gefunden" End If End With End Sub

Hallo Christian,
vielen Dank fuer deine Antwort!!
Leider gibt mir Excel bei der Zeile lngDate = CLng(CDate(strDate)) den Mismatch Fehler zurueck. Hast du eine Idee, woran das liegen kann?
Muss ich denn ueberhaupt zwingend mit einem Datum arbeiten? Die Mismatch Funktion gibt mir ja als Ergebnis einen Spaltenindex zurueck, naemlich den Index der Spalte, in der das Datum des Kontoauszuges mit dem Datum der Zieltabelle uebereinstimmt. Diesen Spaltenindex moechte ich dann in die Berechnungsformel SummeWenn einsetzen, damit diese bei dem richtigen Datum eingefuegt wird.
Bsp. Die Match liefert als Wert 27, also moechte ich, dass die SummeWenn Funktion in Spalte 27 eingefuegt wird. Die Zeile bleibt jedes Mal gleich.
Ich hoffe du bzw. ihr koennt mir da weiterhelfen!
Danke!!

Beliebteste Forumthreads (12 Monate)

Formelergebnis an Variable, Variable an Formel

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread