Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1188to1192
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
Inhaltsverzeichnis

Nach Find Methode Zeile merken

Nach Find Methode Zeile merken
frank
hallo
Ich habe mehrere gleich aufgebaute Tabellenblätter.
Es wird in Spalte A nach der Kalenderwoche gesucht.
Wird diese gefunden werden Einträge in den Zellen daneben gemacht.
In den anderen Tabellenblättern werden dann in der selben Zeile Einträge vorgenommen.
Muß ich die Suchabfrage in allen Tabellenblättern neu durchführen oder kann ich die Zeilennummer merken und damit weiterarbeiten?
Dim rng As Range
Set rng = Sheets("Tabelle1").Range("A3:A53").Find(What:=TextBox1.Text, Lookat:=xlWhole, LookIn:=xlValues)
If Not rng Is Nothing Then
With Sheets("Tabelle1")
rng.Offset(0, 22) = CDbl(TextBox3)
mfg
frank

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Nach Find Methode Zeile merken
12.12.2010 12:40:26
Josef

Hallo Frank,
das geht z.B. so.

Sub frank()
  Dim rng As Range
  Dim lngRow As Long
  
  With Sheets("Tabelle1")
    Set rng = .Range("A3:A53").Find(What:=TextBox1.Text, Lookat:=xlWhole, LookIn:=xlValues)
    
    If Not rng Is Nothing Then
      lngRow = rng.Row
      
      .Cells(lngRow, 23) = CDbl(TextBox3)
      
      'und weiter
      Sheets("Tabelle2").Cells(lngRow, 23) = "was weiß ich"
      '...
      
    End If
  End With
  
  Set rng = Nothing
End Sub

Gruß Sepp

Anzeige
Vielen Dank Josef
12.12.2010 12:57:08
frank
.

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige