PDF herunterladen In diesem wikiHow zeigen wir dir, wie du mit der Nutzung von Visual Basic Prozeduren beginnst, um in Microsoft Excel Daten auszuwählen. Solange du mit grundlegendem VB Scripting vertraut bist und fortgeschrittenere Funktionen von Excel verwendest, wirst du den Auswahlprozess ziemlich einfach finden. 1 Wähle eine Zelle im aktuellen Arbeitsblatt. Nehmen wir an, du möchtest mit Visual Basic die Zelle E6 auswählen. Dies kannst du mit einer der folgenden Optionen machen: [1] ActiveSheet. Cells ( 6, 5). Select ActiveSheet. Range ( "E6"). Select 2 Wähle eine Zelle in einem anderen Arbeitsblatt in der gleichen Arbeitsmappe. Nehmen wir an, unsere Beispielzelle E6 befindet sich in einer Tabelle namens Sheet2. Du kannst sie mit einer der folgenden Optionen auswählen: Application. Goto ActiveWorkbook. Sheets ( "Sheet2"). Cells ( 6, 5) Application. Goto ( ActiveWorkbook. Excel vba zelle suchen und zeile ausgeben pdf. Range ( "E6")) 3 Wähle eine Zelle in einem Arbeitsblatt in einer anderen Arbeitsmappe aus. Nehmen wir an, du möchtest eine Zelle aus Sheet1 in einer Arbeitsmappe namens auswählen.
z. B. =INDEX(E:E;VERGLEICH(H2;F:F;0)) In Spalte F wird nach dem Suchbegriff gesucht. In Spalte E wird gesucht nach dem Ergebnis. In H2 steht der Suchbegriff. So kannst du dann auch die anderen Spalten auslesen. Dazu habe ich erst einmal eine grundsätzliche Frage: Warum muss es unbedingt über VBA sein, kannst du nicht die einfache Lösung per SVERWEIS oder INDEX nutzen? Die konkrete Syntax hab ich dafür nicht im Kopf, aber von der Logik her willst du es so machen: Tabellen und Ihre Inhalte werden in Instanzen angesprochen, das heißt du willst "" abfragen. VBA: Wert suchen und bereich daneben ausgeben. Zuweisen solltest du mit der gleichen Methode. Hoffe, das konnte helfen. :) Regards, Kaoro
Columns("A:A") (What:=eingabe, After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False). Activate VG Geschrieben am: 12. 2010 13:07:48 also was meinst Du mit "ausgeben" für Deinen SVERWEIS? Willst Du die Zeile nachher in einer Zelle stehen haben? oder eine MSGBox oder oder oder. Ich mach mal ein Bsp mit der Ausgabe in eine Zelle, z. B. B1. Deine "eingabe" also nach was gesucht werden soll, musst du noch dazu machen. Excel vba zelle suchen und zeile ausgeben command. sub test Dim Zeile as long Zeile = Columns("A:A")(What:=eingabe, After:=ActiveCell, LookIn:=xlFormulas, _ MatchCase:=False, SearchFormat:=False) Range("B1") = Zeile end sub Geschrieben am: 12. 2010 13:22:28 Hallo Björn, ich danke dir erneut. :) Mit "ausgeben" meinte ich, dass das Makro vielleicht "im Hinterkopf" hat, wo er das Ergebnis gefunden hat, dass ich im selben Sub halt den SVERWEIS mit einbauen kann. Wenn die Zeile in eine Zelle geschrieben wird, ist es zwar nciht sooo elegant, hilft mir aber weiter.
2012, 10:41 # 5 wunderbar! danke schön 12. 03. 2013, 12:08 # 6 Schaetti Hallo Leute, (mein erstes Hallo in diesem Forum) ihr schein ja eine sehr kompetente Community zu sein. Bei mir ist es schon sehr lange her das ich mit mit Excel und VBA beschäftigt habe jedoch benötige ich es jetzt wieder. Und dazu muss ich diesen alten Thread wieder ausgraben. Und zwar brauche ich eigentlich genau diese Funktion jedoch habe ich dazu noch zwei Fragen bzw. Anregungen. 1. der zu suchende Wert ist bei mir "76". Wie kann ich definieren das er NUR danach sucht? also ich meine zurzeit gibt er mir die Zeile z. b. auch aus wenn in der Zelle "y76x" steht (rein theorehtisch). Konkret handelt es sich bei mir um den Fall das ich mithilfe von 76. 1 usw. z. Optionen definieren möchte. 2. Im Code oben kopiert er mit der funktion "" die gesamte Zeile - kann ich auch nur einen bestimmten bereich also von A bis E z. kopieren? Vielen Vielen Dank schonmal Beste grüße 12. 2013, 12:18 # 7 Registrierung: 17. Excel vba zelle suchen und zeile ausgeben youtube. 2008 Set rng = Worksheets("Tabelle1")("E:E")(loDeinWert, LookAt:=xlWhole) Range("A" & &":E" & "E" &) ungetestet.
Danke! :) LG Geschrieben am: 12. 2010 13:27:25 Deswegen habe ich ja gefragt.... weiß ja nicht, was du willst. Also, wenn es das Makro im "Hinterkopf" behalten soll, dann kannst du den Code von mir auch nutzen. Lass einfach das "Range("B1") = Zeile" weg. Im Hinterkopf bedeutet so viel wie zwischenspeichern und Werte speichert man in Variablen. Das habe ich da ja schon gemacht... die Variable "Zeile" ist genau das, was du brauchst. Du kannst diese dann in den Sverweis einbauen... Geschrieben am: 12. 2010 13:52:20 AH! Danke für den Hinweis. So geht das natürlich! :) Kurze Frage noch: Kann man auch das Ergebnis von Formeln in einer TextBox einer UserForm ausgeben? Vielen Dank nochmal! Geschrieben am: 12. VBA Suchen und Zeilen- und Spaltennr. übergeben. 2010 14:02:35 das kann man so ganz pauschal mit Ja beantworten. Aber bevor ich da jetzt wieder 3 Bsp. mach, die nachher erst nicht passen... Wo hast du die Formel? In Einer Zelle? In Makro? Einfach etwas beschreiben. Der Code sieht dann in etwa so aus: in A1 habe ich hier eine Zahl stehen, die in Prozent formatiert ist (Zahlenformat der Zelle), deshalb das mal 100.
Wenn Du z. statt TextBox1 das ganze "tbEingabe" benennst, dann weißt Du schon beim Lesen, aha fängt mit tb an, ist ne Textbox, heißt Eingabe, also ist das die... TextBox2 könnte z. tbSverweis oder tbErgebnis oder tbSuche, oder... Geschrieben am: 15. 2010 12:17:26 man steh ich auf dem Schlauch. Danke, dass du mir die Augen geöffnet hast. VBA - Wert finden und ganze Zeile ausgeben - MS-Office-Forum. Der text steht ja definitiv irgendwo, also kann ich mir ja auch einfach die Zeile auslesen. Sorry, für die Umstände! So klappts natürlich: Private Sub CommandButton2_Click() = Sheets("Verzeichnis")("D" & Zeile) Danke auch für den Hinweis mit den Namen. Werde ich sofort umsetzen!
Columns("A:A")(What:=eingabe, After:=ActiveCell, LookIn:= _ xlFormulas, _ Formel = "=VLOOKUP(" & Range("A" & Zeile) & ";A:F;4;FALSE)" = Formel End If End Sub Für deine weitere Unterstützung wäre ich sehr dankbar. VG und einen guten Wochenstart wünscht Geschrieben am: 15. 2010 11:48:22 die Erklärung habe ich Dir schon geschrieben: Da alles in Anführungszeichen als Text interpretiert wird. Siehe in meinem letzten Beitrag... Als nächstes bin ich mir nicht ganz sicher, ob du direkt im Code mit dem SVERWEIS rechnen kannst. ICh glaube, du müsstest entweder: - die Formel in eine Zelle schreiben und dann das Ergebnis aus der Zelle auslesen - oder das ganze umständlicher in VBA programmieren. Also mit FIND nach Wert suchen und dann 4 Spalten nach rechts und dort Ergebnis aus der Zelle lesen. Dieses Ergebnis kannst du dann in die Textbox schreiben. Noch so ein Tipp am Rande, gib ALLEM in Deinem Code bzw. Projekt aussagekräftige Namen. Das erleichtert es unheimlich, wenn man größere Projekte hat bzw. mal nach einem Jahr was ändern muss.