Anzeige
Archiv - Navigation
1156to1160
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Suchen ersetzen per VBA
Steffi
Hallo zusammen,
wie bekomme ich es hin das ich per VBA in einer Tabelle in Spalte A einen Wert suche und wenn dieser gefunden wurde ich in der gleichen Zeile den Eintrag in Zelle C ändern kann. ( Popupfenster )
Vielen lieben Dank
Gruß Steffi

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Suchen ersetzen per VBA
30.05.2010 15:57:05
Hajo_Zi
Hallo Steffi,
erst mit Find den Wert suchen in Spalte A
Sub Find_Einmal()
'   erstellt von HajoZiplies@web.de 02.06.03
Dim RaFound As Range
Dim LoLetzte As Long
Dim sSearch As String
sSearch = Worksheets("Tabelle2").Range("A1")
With Worksheets("Tabelle1")
LoLetzte = IIf(IsEmpty(.Range("A65536")), .Range("A65536").End(xlUp).Row, 65536)
' xlByRows  Suche zuerst in Zeilen
' xlByColumns Suche zuerst in Spalten
Set RaFound = .Range("A1:A" & LoLetzte).Find(sSearch, .Range("A" & LoLetzte), , xlWhole, _
xlByRows, xlNext)
If RaFound Is Nothing Then Exit Sub  'falls nicht gefunden wird Sub verlassen
MsgBox RaFound.Row
End With
Set RaFound = Nothing
End Sub

dmit hast Du fdann die Zeile.
Cells(RaFound.Row,3)="Test"

Anzeige
AW: Suchen ersetzen per VBA
30.05.2010 17:02:16
Steffi
Hallo Hajo,
Danke Dir für Deine Antwort, aber ehrlich gesagt wo füge ich den Code ein und wo kann ich die Eingabe machen.
Danke Dir
Liebe Grüße Steffi
AW: Suchen ersetzen per VBA
30.05.2010 17:26:18
Hajo_Zi
Hallo Steffi,
starte den VBA Editor (Alt+F11), Bild sollte zweigeteilt sein ansonsten Strg+R, gehe auf Deine Datei, rechte Maustaste, Einfügen Modul, Code ins rechte Fenster kopieren, VBA Editor schließen. Start über Extras, Makro, Makros, Makro wählen, ausführen.
Der Suchwert steht in Tabelle2 in A1und gesucht wird in Tabelle1 in Spalte A
Gruß Hajo
Anzeige
AW: Suchen ersetzen per VBA
30.05.2010 17:56:49
Steffi
Hallo,
danke Euch, habe es endlich geschafft...
Danke
Gruß
Steffi
AW: Suchen ersetzen per VBA
30.05.2010 16:27:16
Daniel
Hi
dim Zelle as range
set Zelle = Columns(1).Find(what:="DeinWert")
if not Zelle is Nothing then Zelle.Offset(0,2).Value = Inputbox("Hinweistext")
Gruß, Daniel

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige