Der ausgewählte Bereich ist der größte von denen die ich hier auf der Seite präsentiere. Benutzt wird hier UsedRange. Hiermit lässt sich über die letzte (unterste) Zeile oder mit die letzte (rechteste) Spalte ausgeben. Über ActiveSheet greife ich auf das aktive Tabellenblatt zu. Es erfolgt in allen 3 Scripten eine Ausgabe der Zeilennummer in E7 und der Spaltennummer in E9. Die Variablen ZeilenEnde und SpaltenEnde kann man dann natürlich auch für den weiteren Programmcode nutzen. 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Option Explicit Sub gesamtenBenutztenBereichMarkieren () Dim ZeilenEnde As Integer Dim SpaltenEnde As Integer ActiveSheet. Excel vba wert in spalte suchen und zeile ausgeben video. UsedRange. Select ZeilenEnde = ActiveSheet. Rows. Count SpaltenEnde = ActiveSheet. Columns. Count Range ( "E7"). Value = ZeilenEnde Range ( "E9"). Value = SpaltenEnde End Sub Beispielscript: Gefüllte Zellen ohne Lücken markieren in Excel VBA In diesem Beispiel benutze ich Cells um von einer Anfangsposition aus zu starten. In diesem Fall Cells(1, 1) das bedeutet dass wir in Zelle A1 beginnen.
Cells(ZeilenNummer, SpaltenNummer) Von A1 aus benutzen wir eine Möglichkeit wie mit STRG + Pfeil nach unten. Mit End(xlDown) springen wir zur untersten Zeile die mit Daten gefüllt ist. Aber nur in einem durchgängig beschriebenen Zell – Bereich ohne Lücken. Vor jeder Lücke oder besser gesagt leeren Zelle wird gestoppt. Das gleiche betrifft auch die Spalte. Ebenfalls von A1 aus also Cells(1, 1) gehen wir mit End(xlToRight) (STRG + Pfeil nach rechts) an die letzte Spalte die Daten enthält. Auch hier wird vor der ersten leeren Zelle gestoppt. In dem Beispiel werden keine Zellen markiert die in der ausgewählten Startzeile oder Spalte Lücken enthält. Nur zusammenhängende Bereiche werden markiert. Option Explicit Sub letzteZeileSpalteOhneLuecke () Dim ZeilenEnde As Integer Dim SpaltenEnde As Integer ZeilenEnde = Cells ( 1, 1). End ( xlDown). Row SpaltenEnde = Cells ( 1, 1). End ( xlToRight). Wert finden und Spaltenüberschrift ausgeben. Column Range ( "E7"). Value = SpaltenEnde Range ( "A1", Cells ( ZeilenEnde, SpaltenEnde)). Select End Sub Beispielscript: Gefüllte Zellen mit Lücken markieren in Excel VBA Das letzte Beispielscript ist im Grunde genauso aufgebaut wie das letzte.
Mrz 2011, 19:51 Rufname: Besten Dank, hat geholfen! Vor allem vielen Dank fr die schnelle Hilfe. Verfasst am: 23. Mrz 2011, 09:38 Rufname: Hey Music_man, mit dateibergreifenden Funktionen hab ich leider nicht so viel Erfahrung msste mich da selbst einlesen, mach am besten nochmal nen neuen Thread auf. Tulpe1 Verfasst am: 17. Apr 2012, 09:11 Rufname: Version: Office 2010 Hallo Zusammen! Bin ein VBA Kken = frisch geschlpft und sehr wackelig unterwegs. Excel vba wert in spalte suchen und zeile ausgeben berlin. Habe ein hnliches Problem. Gibt es fr das Beispiel von Musicman auch einen Code? Kann den vielleicht jemand hier rein stellen, damit ich mein Glck mit meinem Problem weiter versuchen kann? Wre sehr hilfreich. Viele Gre
Enthält Matrixformel: Umrandende {} nicht miteingeben, sondern Formel mit STRG+SHIFT+RETURN abschließen!
Text per VBA in Spalte suchen und Wert daneben zurckgeben Autor Nachricht Nico2011 Gast Verfasst am: 22. Mrz 2011, 15:49 Rufname: Version: Office 2007 Hallo zusammen, ich habe eine Tabelle in der Form Wert A|Wert B ich mchte per VBA einen Wert in Spalte A suchen und mir den Wert in Spalte B zurckgeben lassen. Der gesuchte Wert steht in Zelle C1. Der gefundene Wert soll in Zelle D1 geschrieben werden. Also nichts anderes als die VERGLEICH-Funktion, nur will ich halt keine Funktion benutzen, Sondern das Makro soll das erledigen. Falls der gesuchte Wert in Spalte A nicht vorhanden ist, soll "0" zurckgegeben werden. Excel vba wert in spalte suchen und zeile ausgeben von. Vielen Dank fr Antworten! Beste Gre Nico Frex Excel-VBA-Kenner Verfasst am: 22. Mrz 2011, 16:05 Rufname: Um das richtig zu verstehen: Du willst also die komplette Spalte A nach dem Wert C1 durchsuchen lassen und an der Stelle wo dieser Wert gefunden wurde, genau denselben wert daneben in die selbe Zeile der Spalte B kopieren und dann nochmal nach D1? fr mich macht das keinen sinn deshalb frag ich^^ Verfasst am: 22.