Excel VBA: Sverweis Formel - Makro einfügen!

Hi zusammen. Habe mir heute mein erstes Userform gebastelt (Google sei Dank...). Mein UF macht simpel nichts anderes, als Einträge aus der EIngabemaske in eine Tabelle zu füllen.

Dim emptyRow As Long

'Ermitteln der ersten leeren Zeile
emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1

'Wohin werden die eingegebenen Datein eingefüllt?
Cells(emptyRow, 1).Value = ComboBox1.Value
Cells(emptyRow, 5).Value = TextBox1.Value
Cells(emptyRow, 2).Value = TextBox2.Value
Cells(emptyRow, 3).Value = TextBox3.Value
Cells(emptyRow, 7).Value = TextBox4.Value

If OptionButton1.Value = True Then
    Cells(emptyRow, 6).Value = "1. Halbjahr"
End If

If OptionButton2.Value = True Then
    Cells(emptyRow, 6).Value = "2. Halbjahr"
End If


Me.Label7 = "Speichern erfolgreich!"

End Sub

Ich muss auch sagen, es funktioniert prächtig. Die Einträge werden alle korrekt erstellt etc. Nur habe ich in Spalte "H" meiner Tabelle, wo die Daten eingefügt werden, eine Spalte für SVerweis. Diese Formel soll jedesmal, wenn ein neuer Eintrag gespeichert wird, angefügt werden. Wenn ich von anfang an alle Formeln runterziehe bis ans Ende der Tabelle braucht Excel 2Minuten zum das Dokument zu öffnen... Formel lautet: =SVERWEIS($A2;'Tabelle1'!$A$1:$C$31;2;FALSCH) Wobei der Bezug A2 natürlich mit jeder Zeile anders ist (A2, A3, A4 etc.) Wenn ich die Formel "aufzeichne", erscheint folgendes, womit ich absolut nix anfangen kann.

Sub SVerweis_HC()
'
' SVerweis_HC Makro
'

'
    ActiveCell.FormulaR1C1 = _
        "=VLOOKUP(RC1,'Tabelle1'!R[-1317]C[-7]:R[-1289]C[-6],2,FALSE)"
    Range("H1319").Select
End Sub

Kann hier wer helfen?

Bild zu Frage
Computer, Microsoft Excel, programmieren, Makro, VBA, Script, Tabelle
Excel soll aus bestehender Zahlenreihe immer den x-ten Wert (hier 96) auslesen

Hallo

ich habe bei Excel die Differenz zwischen einem Prognosewert und einem Messwert für einen Zeitraum von 2 Monaten, die Differenz-Werte sind auf Viertelstunden aufgelöst. Ich würde nun gerne den RMSE für jeden Viertelstunde ausrechnen, das sähe dann so aus dass ich eine vertikale Spalte mit dem Datum hätte und in der Horizonatalen jeweils eine Spalte für 04:00, 04:15, etc bis 23:00. Bei der Berechnung des RMSE für den gesamten Beobachtungszeitraum habe ich schon den jeweiligen Fehlerterm errechnet, das sieht dann so aus: =(Prognose-Messwert)^2. Ich würde nun gerne separat jeden 96. Wert zu der passenden Viertelstunde herauslesen damit ich feststellen kann, wie hoch der Fehler zwischen Prognose und Messwert zu bestimmten Uhrzeiten ist. Mein Problem ist jetzt folgendes: Ich bekomme es einfach nicht hin, dass Excel der Reihe nach jeden 96. Wert ausliest. Wenn ich bspw =I29, =I125 und I221 in meiner neuen Tabelle eintrage, die Felder markiere und mit dem Kreuz nach unten ziehe, macht Excel alles, aber nicht die logische Fortführung mit =I317, =I413 etc Das manuelle Eintragen von einigen tausend Formeln stellt ja auch kein Alternative dar. Ich bitte um Hilfe und bin für jeden Hinweis dankbar

Beste Grüße

und noch eine Frage:

Wenn ich die einfache Differenz zwischen Prognose und Messwert ausrechne und diese Werte dann der Größe nach ordne, müsste es doch möglich sein ein Diagramm auf Basis eines einfach x/y Koordinatensystem zu erstellen, wo ich auf der x-Achse die jeweiligen Differenzwerte auftragen kann und durch die y-Achse deren Häufigkeit. Ist sowas auch mit Excel möglich ?

Microsoft Excel, Microsoft Office, Tabelle
WENN-Funktion (zu viele Argumente)

Moin Moin,

ich wollte für die Arbeit eine Exceltabelle erstellen.(Eine Mappe mit mehreren Blättern)

Wenn ich auf dem Blatt "Maske" ins Feld "B1" einen Namen schreib der auf den anderen Blättern auf "B1" hinterlegt ist, soll er das Feld "B2" des dazugehörigen Blattes in das Feld "B2" des Blattes "Maske" schreiben.

Es Handelt sich hierbei um verschiedene Verkaufsartikel. Jeder Artikel hat sein Eigenes Blatt.

Meine Formel sieht im Moment so aus:

=WENN(B1=Barras!B1;Barras!B2;WENN(Maske!B1=Freibourg!B1;Freibourg!B2;WENN(Maske!B1=Milano!B1;Milano!B2;WENN(B1=Dayton!B1;Dayton!B2;WENN(Maske!B1=Alaska!B1;Alaska!B2;WENN(Maske!B1='Frankfurt(1-farbig)'!B1;'Frankfurt(1-farbig)'!B2;WENN(Maske!B1='Frankfurt(2-farbig)'!B1;'Frankfurt(2-farbig)'!B2;WENN(Maske!B1=Frontera!B1;Frontera!B2;WENN(Maske!B1;Loreto!B1;Loreto!B2;WENN(Maske!B1;Mataro!B1;Mataro!B2;WENN(Maske!B1;Teresina!B1;Teresina!B2;WENN(Maske!B1=Borneo!B1;Borneo!B2;WENN(Maske!B1=Soroni!B1;Soroni!B2;WENN(Maske!B1=Trinidad!B1;Trinidad!B2;WENN(Maske!B1=Malaga!B1;Malaga!B2;WENN(Maske!B1=Stuttgart!B1;Stuttgart!B2;WENN(Maske!B1=Kisumu!B1;Kisumu!B2;WENN(Maske!B1;Manica!B1;Manica!B2;WENN(Maske!B1=Mongu!B1;Mongu!B2;WENN(Maske!B1=Beja!B1;Beja!B2;WENN(Maske!B1=Caribien!B1;Caribien!B2;WENN(Maske!B1=Toulon!B1;Toulon!B2;WENN(Maske!B1=Jamaica!B1;Jamaica!B2;WENN(Maske!B1=Java!B1;Java!B2;WENN(Maske!B1=Hagen!B1;Hagen!B2;WENN(Maske!B1=Lakewood!B1;Lakewood!B2;WENN(Maske!B1=Weyburn!B1;Weyburn!B2;WENN(Maske!B1=Sölden!B1;Sölden!B2;WENN(Maske!B1=Tulsa!B1;Tulsa!B2;WENN(Maske!B1=Lido!B1;Lido!B2;WENN(Maske!B1=Washington!B1;Washington!B2;WENN(Maske!B1=Cadiz!B1;Cadiz!B2;WENN(Maske!B1=Lerida!B1;Lerida!B2;"0"))))))))))))))))

kurz:

=WENN(B1=Barras!B1;Barras!B2;WENN(Maske!B1=Freibourg!B1;Freibourg!B2;WENN....

wenn nichts zutrifft soll er "0" ausgeben.

Nun sagt er mir "Zu viel Argumente", ist das so? kann man das umgehen oder sonst etwas tuhen?

Ich danke schon mal für die Antworten und eure Lösungsvorschläge.

MfG

kray

PC, Office, Microsoft Excel, Tabelle
Excel ZÄHLENWENN mit relativen Bezug auf Zelle oberhalb der aktuellen

Hallo,
Ich habe eine Tabelle, in der ich die erste Spalte auf Duplikate überprüfen möchte.
Dazu sorteiere ich diese Spalte (alles Zahlen) in aufsteigender Reihenfolge und möchte nun die "Zählenwenn"-Funktion verwenden, um die Duplikate zu zählen.
Da die Spalte ja sortiert ist kann ich sicher sein, dass gleiche Zahlen immer übereinander liegen, sodass ich in der "Zählenwenn"-Funktion folgendes haben möchte:

=ZÄHLENWENN(Bereich;Inhalt=Inhalt der Zelle oberhalb)

Die Zählenwennfunktion durchläuft ja alle Zellen im Bereich, weshalb (theoretisch) die Funktion "Adresse()" mit "Zeile()" und "Spalte()" als Parameter die aktuelle Zelle referenzieren/sich darauf beziehen.
Das würde bedeuten, dass ich in der "Zählenwenn"-Funktion als zweiten Parameter eigentlich nur folgendes eingeben müsste:

Adresse(Zeile()-1;Spalte())

Funktioniert nicht.
In einigen Beispielen habe ich gesehen, dass Bezüge auf andere Zellen in der "Zählenwenn"-Funktion mit einem "&" beginnen, also habe ich folgendes versucht:

=ZÄHLENWENN(A2:A3000;&ADRESSE(ZEILE()-1;SPALTE()))

Wieder kein Erfolg.

Deshalb die Frage: Wie kann ich in der "Zählenwenn"-Funktion in Excel mich auf eine Zelle, relativ zur aktuellen beziehen? Das hier genannte Beispiel wird sicher auch anders zu lösen gehen, aber den genannten relativen Bezug (also relativ zur Aktuellen Zelle) könnte man in der Zählenwenn schon öfters brauchen. Danke und lg, Springrbua

Microsoft Excel, Funktion, VBA, Anzahl, Tabelle, zaehlenwenn

Meistgelesene Fragen zum Thema Tabelle