Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
632to636
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
632to636
632to636
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
suchen in allen tabellen statt nur in tabelle1
06.07.2005 22:45:30
mehmet
hallo forum,
an welcher stelle kann die die suchfunktion (im code) statt nur tabelle1
in allen tabellen eingeben ändern
dank und gruss
mehmet
'#######################################################################
'DieseArbeitsmappe
Option Explicit

Private Sub Workbook_Open()
GetObject ("C:\Dokumente und Einstellungen\SiM\Desktop\Blanko0.xls")
End Sub

'#######################################################################
'Tabelle1
Option Explicit

Private Sub ListBox1_Click()
Workbooks("Blanko0.xls").Sheets(1).Range("A" & CStr(ListBox1.List(ListBox1.ListIndex, 1)) & ":G" & CStr(ListBox1.List(ListBox1.ListIndex, 1))).Copy ActiveSheet.Range("A1:G1")
End Sub


Private Sub TextBox1_Change()
Dim Zelle As Range, Adresse As String
ListBox1.Clear
With Workbooks("Blanko0.xls").Sheets(1).Range("A2:G9999")
Set Zelle = .Find(What:=TextBox1.Value, LookAt:=xlPart)
If Not Zelle Is Nothing Then
Adresse = Zelle.Address
Do
ListBox1.AddItem Zelle.Value
ListBox1.List(ListBox1.ListCount - 1, 1) = Zelle.Row
Set Zelle = .FindNext(Zelle)
Loop While Not Zelle Is Nothing And Zelle.Address <> Adresse
End If
End With
If Adresse <> "" Then Call sortieren(0, ListBox1.ListCount - 1)
End Sub


Private Sub sortieren(Untergrenze As Long, Obergrenze As Long)
Dim index1 As Long, index2 As Long, Element1 As String, Element2 As Long, Zwischenspeicher As String
index1 = Untergrenze
index2 = Obergrenze
Zwischenspeicher = ListBox1.List(((Untergrenze + Obergrenze) / 2) \ 1, 0)
Do
Do While ListBox1.List(index1, 0) < Zwischenspeicher
index1 = index1 + 1
Loop
Do While Zwischenspeicher < ListBox1.List(index2, 0)
index2 = index2 - 1
Loop
If index1 <= index2 Then
Element1 = ListBox1.List(index1, 0)
Element2 = ListBox1.List(index1, 1)
ListBox1.List(index1, 0) = ListBox1.List(index2, 0)
ListBox1.List(index1, 1) = ListBox1.List(index2, 1)
ListBox1.List(index2, 0) = Element1
ListBox1.List(index2, 1) = Element2
index1 = index1 + 1
index2 = index2 - 1
End If
Loop Until index1 > index2
If Untergrenze < index2 Then Call sortieren(Untergrenze, index2)
If index1 < Obergrenze Then Call sortieren(index1, Obergrenze)
End Sub

'#######################################################################

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: suchen in allen tabellen statt nur in tabelle1
06.07.2005 23:07:01
Reinhard
Hallo Mehmet,
(nur überflogen) du hast da
With blablabla.Sheets(1).Range("A2:G9999")
...
End With
Anstelle dessen:
for n= 1 to thisworkbook.worksheets.count
With blablabla.Sheets(n).Range("A2:G9999")
...
End With
next n
Gruß
Reinhard
AW: suchen in allen tabellen statt nur in tabelle1
06.07.2005 23:19:50
mehmet
hallo reinhard,
ich bekomme ein fehlermeldung auf "n"
"fehler beim kompilieren: typen unverträglich"
darauf hin habe ich es auf
dim n as integer gesetzt
jetzt keine fehlermeldung mehr
aber die suche läuft immer noch nur in tabelle1 statt alle tabellen
gruss
mehmet
Anzeige
AW: suchen in allen tabellen statt nur in tabelle1
06.07.2005 23:26:44
mehmet
hallo reinhard,
sollte man nicht

Private Sub ListBox1_Click()
Workbooks("Blanko0.xls").Sheets(1).Range("A" & CStr(ListBox1.List(ListBox1.ListIndex, 1)) & ":G" & CStr(ListBox1.List(ListBox1.ListIndex, 1))).Copy ActiveSheet.Range("A1:G1")
End Sub

hier nicht noch was ändern?
gruss
mehmet

305 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige