Worksheetzeiger -Tabellenblatt aus anderer Datei

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Chris,
da hast Du mich auf dem falschen Bein erwischt. Ich setze ab und zu Set ein.
Das angesprochene Problem hatten wir gerade vor ein paar Tagen im Forum behandelt und daran habe ich mich erinnert.
Es ist ja so das eine Zelle auch komplett mit Dateiname und Tabelle angesprochen werden kann. Das ist ja schon viel code und wenn es noch meherer unterschiedliche Zellen sind macht sich die mit Set gut. Es wird eine Variable definiert Dim WsTa As Worksheet
und dann Set WsTa = Workbooks("27443.xls").Worksheets("Auswertung")
Mit WsTa kann ich jetzt schnell auf die Tabelle zugreifen.
Am Ende sollte man nur wieder schreiben set WsTa = Nothing
Der Einsatzfall der für mich intressanter ist ist die Funktion Find.


Sub test()
'   erstellt von Hajo.Ziplies@web.de 12.04.03
Dim Found As Range
Dim LoLetzte As Long
Dim sSearch As String
sSearch = InputBox("Suchbegriff:", , "test")
If sSearch = "" Then Exit Sub
LoLetzte = IIf(IsEmpty(Range("C65536")), Range("C65536").End(xlUp).Row, 65536)
Set Found = Range("C1:C" & LoLetzte).Find(sSearch, Range("C" & LoLetzte), , xlPart, , xlNext)
'   kompletter Vergleich und Inhalt
'    Set Found = .Range(.Cells(2, 10), .Cells(5753, 10)).Find(ActiveSheet.Cells(I, 54), _
'        .Cells(5753, 10), xlValues , xlWhole, , xlNext)
If Found Is Nothing Then Exit 

Sub  'falls nicht gefunden wird 

Sub verlassen
MsgBox Found.Row
End Sub


Gruß Hajo



"Wer Rechtschreibfehler findet, darf sie behalten!"

Sub test() ' erstellt von Hajo.Ziplies@web.de 12.04.03 Dim Found As Range Dim LoLetzte As Long Dim sSearch As String sSearch = InputBox("Suchbegriff:", , "test") If sSearch = "" Then Exit Sub LoLetzte = IIf(IsEmpty(Range("C65536")), Range("C65536").End(xlUp).Row, 65536) Set Found = Range("C1:C" & LoLetzte).Find(sSearch, Range("C" & LoLetzte), , xlPart, , xlNext) ' kompletter Vergleich und Inhalt ' Set Found = .Range(.Cells(2, 10), .Cells(5753, 10)).Find(ActiveSheet.Cells(I, 54), _ ' .Cells(5753, 10), xlValues , xlWhole, , xlNext) If Found Is Nothing Then Exit Sub 'falls nicht gefunden wird sub verlassen MsgBox Found.Row End Sub

Beliebteste Forumthreads (12 Monate)

Worksheetzeiger -Tabellenblatt aus anderer Datei

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Worksheetzeiger -Tabellenblatt aus anderer Datei

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread