Excel Befehl zu VBA?

Hallo ich würde gern die befehle in VBA umwandeln weiß aber nicht wie.

=SVERWEIS(D3;Tabelle1!A1:G399;2;FALSCH)

=SVERWEIS(D3;Tabelle1!A1:G399;3;FALSCH)

=SVERWEIS(D3;Tabelle1!A1:G399;4;FALSCH)

=SVERWEIS(D3;Tabelle1!A1:G399;5;FALSCH)

=SVERWEIS(D3;Tabelle1!A1:G399;6;FALSCH)

=SVERWEIS(D3;Tabelle1!A1:G399;7;FALSCH)

2 Antworten

Gipfelstuermer

Nutzer, der sehr aktiv auf gutefrage ist

im Thema Microsoft Excel

07.08.2024, 02:41

Was ist denn der tiefer greifende Sinn der Frage. Denn VBA bietet zahlreiche Nachteile die klassische Formeln nicht haben. Und nur relativ beschränkte Vorteile.

VBA spielt eigentlich nur dann seine Vorteile aus, wenn Zellen zugleich Eingabe wie auch Ausgabe sein sollen. Und beim übertragen von Formularelementen. Der sverweis wäre das letzte was ich über vba lösen wollen würde.

Dafür würde mir im Gegenzug der Filter einfallen um den Sverweis in der oben gezeigten Variante deutlich zu verkürzen.

Woher ich das weiß:Berufserfahrung – sowohl Beruf als auch Hobby

Suboptimierer

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel

07.08.2024, 11:18

Ich meine mich erinnern zu können, dass die WorksheetFunction zum SVERWEIS VLOOKUP oder so ähnlich heißt.
Mit diesen Stichwörtern findest du per Google sicherlich reichlich Material.

Ähnliche Beiträge

Excel vba formel falsch,Was?

Sub test()
  Worksheets("Tabelle1").Range("A1") = worksheetfunction.iif(or(isempty(Range(A1)),isempty(Range(B2)),""(Range(A1-B2+1))
End Sub

...zum Beitrag

Excel Vba Typen Unverträglich?

Sub test()

For i = 1 To 10

Worksheets("Tabelle1").Range("C1:C10") = IIf((IsEmpty(Range("A1:A10")) + IsEmpty(Range("B1:B10"))) <> 0, "Not Calculable", (Range("A1:A10") - Range("B1:B10") + 1))

End Sub

...zum Beitrag

Excel Formel in vba code umwandeln?

=WENN(ODER(ISTLEER(A1);ISTLEER(B1));"";A1-B1+1)

Bin absoluter Anfänger

...zum Beitrag

Excel: Variablen in Makros einfügen und in Datenbank pflegen/ändern?

Hallo liebe Community,

ich habe diverse Makros in meiner Excel Datei und ich würde gerne das ganze etwas "smarter" gestalten und eine Art Datenbank mit VBA erstellen, um viele Sachen in der Arbeitsmappe dadurch ändern/pflegen zu können. Externe Leute sollen und müssen dann nicht mehr in die VBA Oberfläche und mühsam das Makro suchen, um dort Pfade oder Zeilen zu ändern, falls sich was ändert.

Meine Frage:

Ist es möglich in ein Makro bei VBA eine Art Variable einzubauen bzw. Pfad, wo Excel z.B. in Tabelle1 in Spalte A1 den Wert/Namen findet?

Beispiel Makro:

Statt Daten123.xlsx soll dann ein Bezug hin, wo Excel in Tabelle1 in A1 den Namen Daten123.xlsx findet. Ist sowas möglich?

Dim sPfad As String
Dim wbQuelle As Workbook
Dim zelle As Range
Dim loletzte As Long

sPfad = "C:\Users\P\Desktop\Dateiordner\Unterordner\Daten123.xlsx"

If Dir(sPfad) <> "" Then

Set wbQuelle = Workbooks.Open(sPfad)

Call Test

loletzte = Cells(Rows.Count, 1).End(xlUp).Row

wbQuelle.Worksheets(1).Range("A7:I" & loletzte).Copy ThisWorkbook.Worksheets(3).Range("B2")

wbQuelle.Close savechanges:=False

End If

...zum Beitrag

Excel VBA Makro Code?

Guten Tag zusammen,

Undzwar geht es darum das ich ein Makro erstellt habe der sieht so aus :

Sub Makro1()

' Makro1 Makro

Range("D3").Select

Application.CutCopyMode = False

Selection.Copy

Sheets("1M").Select

Range("C6").Select

ActiveSheet.Paste

Sheets("Tabelle1").Select

Range("J3").Select

Application.CutCopyMode = False

Selection.Copy

Sheets("1M").Select

Range("C7").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Sheets("Tabelle1").Select

Range("R3").Select

Application.CutCopyMode = False

Selection.Copy

Sheets("1M").Select

Range("C13").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Range("D26").Select

Application.CutCopyMode = False

Selection.Copy

Sheets("Tabelle1").Select

Range("H3").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

End Sub

Das Problem ist jetzt das ich möchte das er in der Excel Tabelle jede Zeile mit diesem Makro ausfüllt sprich er soll bei Zeile 3 anfangen und bis 322 weiterführen ich habe 2 Mappen 1. "Tabelle1" und "1M"

Tabelle1 hatt die 322 Zeilen aber er springt nicht zur jeder Zeile und die Zelle "D3" , "J3", "R3", "H3" sollten dann auf die nächste Zeile Springen Sprich "D4", "J4" , "R3" , "H4" wenn er auch in der 4 Zeile ist

die restlichen Zellen sollen festbleiben zugehörig zu Mappe "1M"

ich hoffe es ist verständlich was ich meinte :'D

...zum Beitrag

Excel Formel funktioniert nicht - Fehlermeldung?

Hallo,
ich wollte aus zwei Spalten eine Formel bilden aber es kommt immer die Fehlermeldung. Ich möchte D3/C3 rechnen. Was mache ich falsch.

...zum Beitrag

Ich suche Hilfe für Excel VBA Programmierung, kann jemand helfen?

Guten Morgen Allseits,

ich suche nach einem Schema, Erklärung Schritt für Schritt für Excel VBA Programmierung:

Habe von dem Prof. eine Anleitung dazu bekommen, aber das ist mehr so eine Märchengeschichte.

Nun seid IHR gefragt, habt ihr eine gute Quelle für mich wo das kurz und bündig, aber effizient erklärt wird?

Vielen Dankeschön Euch!

...zum Beitrag

Excel Vba in schleife?

ich möchte diese formel in einer schleife ,aslo das es mehrere zellen ausrechnet nicht nur A1 und B1

Sub test()

Worksheets("Tabelle1").Range("C1") = IIf((IsEmpty(Range("A1")) + IsEmpty(Range("B1"))) <> 0, "", (Range("A1") - Range("B1") + 1))

End Sub

...zum Beitrag

Excel VBA, Bereiche ausblenden?

Hallo, kann ich per Excel Vba einen definierten Bereich ausblenden?

Als Beispiel, ich würde gerne bei einem Klick auf einen Commandbutton, den Bereich B2:D14 ausblenden.

Danke!

...zum Beitrag

EXCEL Makro @ vor Formel?

Die Formel die Kopiert werden soll ist:
=SVERWEIS(B3;Data!A1:C26;2;FALSCH)*F3

Die Kopierte Formel erscheint so:
=@SVERWEIS($B4; Data!$A$1:$C$26; 2; FALSCH)*F4

Mein VBA Makro ist :

Sub HinzufuegenUndKopieren()

Dim WertAusSpalte2 As Variant

WertAusSpalte2 = Cells(3, 2).Value

Rows(4).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

Cells(4, 2).Value = WertAusSpalte2

Cells(4, 5).Formula = "=$B$4"

Cells(4, 6).Value = Cells(3, 6).Value

Cells(4, 7).Formula = "=SVERWEIS($B4, Data!$A$1:$C$26, 2, FALSE)*F4"

End Sub

Wie bekomme ich es hin, dass die Zeile ohne @ Kopiert wird ?.

...zum Beitrag

Excel VBA - Alle Datenüberprüfungen ändern?

Hallo an alle,

ich habe eine Excel mit mehreren Blättern und ein und derselben Datenüberprüfung (Dem selben Dropdownmenü für jedes Blatt). Nun musste ich die Liste um 2 Begriffe erweitern.

Das heißt, dass die Datenüberprüfung nichtmehr (als einfaches Beispiel) C3:C5 anzeigen soll, sondern C3:C7.

Gibt es einen entsprechenden VBA Befehl um alle Datenüberprüfungen auf einen Schlag umzuändern?

...zum Beitrag

Excel in Sverweis die Matrix per Formel ändern?

Beispiel:

In A1 steht 11 als Zahl und in B1 die 14

Ich möchte, dass bei einem Sverweis die Matrix auf Basis von A1 verwendet wird.

(SVERWEIS(B3;H [A1]:L[B1];4;0)

...zum Beitrag

Excel / VBA zur vorherigen aktiven Zelle springen?

Hallo,

folgende Logik soll umgesetzt werden:

Wenn Zelle A1 angeklickt wird, dann springe zur letzten aktiven Zelle im aktiven Tabellenblatt.

Habe im Internet "ActiveCell.Previous.Select" diesen Befehl gefunden, jedoch denke ich, dass es nicht dafür ist.

Hat jemand eine Idee wie ich dies umsetzen kann?

...zum Beitrag

Excel Vba, Bilder löschen?

Hallo, gibt es eine Möglichkeit in excel vba alle Bilder auf dem Tabellenblatt mit einer Ausnahme zu löschen? Also alle Bilder bis auf ein definiertes sollen gelöscht werden.

...zum Beitrag

Was möchtest Du wissen?

Deinen Beitrag erstellen