VB-Paradise 2. 0 – Die große Visual-Basic- und »
Forum »
Programmieren »
Visual Basic for Applications (VBA) »
Excel
Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag ( 26. September 2008, 17:24) ist von DoSchwob. Hallo alle,
ich bin ziemlich neu in dem visual basic thema. Ich benütze Exel2003. Einführung in Excel & VBA - Teil 1 - in-factory GmbH. Mich würde interessieren ob es möglich ist, dass vb nach einem Zelleninhalt sucht. Mein Wunsch wäre es über eine inputbox ein Wort einzugeben, das vb dann selbstständig in der Tabelle sucht und einzelne Spalten aus dieser Zeile ausgibt. Wenn mir jemand helfen könnte wäre das echt super. Vielen Dank
Das geht mit (For-)Schleifen und If-Abfragen. Vielen Dank für die Antwort Angent Smith, nur leider kann ich mir da nichts darunter vorstellen, vielleicht kannst du mir ein Beispiel zeigen. Vielleicht haben auch no´ch andere eine Idee wie man mir das verständlich machen könnte
Danke
Gruß
bender
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von "bender" ( 22. September 2008, 15:41)
Ein einfaches Beispiel:
Wenn du die Zellen von A1 bis A100 nach dem Text "Test" durchsuchen willst, kannst du das so machen, wenn der Text in der Zelle enthalten sein soll:
Visual Basic-Quellcode
For i = 1 to 100
If Cells(i, 1) Like "*Test*" Then MsgBox "Gefunden! "
Excel Vba Zelle Suchen Und Zeile Ausgeben E
2012, 09:56
# 3
Threadstarter
danke für die antwort, so ganz bringt es aber doch nicht das gewünschte ergebnis. ich hab mein problem wohl auch nicht vollständig erklärt! der wert den ich suche, kommt in Tabelle1 mehrmals vor und alle Zeilen die das Suchkriterium dieses Wertes erfüllen sollen ausgegeben werden! Excel vba zelle suchen und zeile ausgeben von. 08. 2012, 10:16
# 4
Hallo mister_bean,
dann so: Sub FindenUndKopieren () Dim rng As Range Dim loDeinWert As Long Dim sFirstAdress As String loDeinWert = 1000 'gesuchter Wert Set rng = Worksheets ( "Tabelle1") ( "E:E") ( loDeinWert) If rng Is Nothing Then MsgBox "Wert " & loDeinWert & " nicht gefunden! " Else sfirstaddress = dress Do Worksheets ( "Tabelle2") (, "A") ( xlUp) _ ( 1, 0). PasteSpecial Paste:=xlPasteAll Set rng = Worksheets ( "Tabelle1") ( "E:E"). FindNext ( rng) Loop While Not rng Is Nothing And dress <> sfirstaddress End If End Sub VBA/HTML - CodeConverter für Excelforen AddIn für Excel XP+2003 - komplett in VBA geschrieben von IngGi Anbindung an VBE-Kontextmenü geklaut;-) bei:
08.
Das Beispiel scheint mir besser zu funktionieren, sie gibt die Zeile und Spalte durch die - Methode zurück Gruß - Kai Post by Sven looks good, but works bad... hab es ziemlich genau so übernommen, wie du es gepostet hast, aber in der zeile = meckert er: "objektvariable oder with-blockvariable nicht festgelegt" Dim zeile As Long Dim zellenfund As Range Set zellenfund = (875, LookIn:=xlValues) zeile =
Loading...