VBA Tabellenübergreifend ?
25.02.2005 23:33:02
Holger
Ich habe ein Problem.
Ich habe nun dank der Hilfe eines netten Forum-Users folgenden VBA-Code in eine
Excel-Datei von mir integrieren können.
Es geht um eine Kunden und Adressuche.
Das klappt auch alles prima.
Noch einmal vielen Dank dafür!!!!!!
Nun möchte ich ein weiteres neues Tabellenblatt anlegen, auf dem dann ausschliesslich die Kundendaten hintelegt sind (Tabelle2)
Das Ergebnis der Suche soll weiterhin auf Tabelle1 angezeigt werden.
Auch das Suchkriterium soll weiterhin dort eingegeben werden können.
Der jetzige Code wo das Ergebnis in dem gleichen Tabellenblatt angezeigt
wird in der auch die Kundendaten sind lautet:
Public Sub t()
Dim zelle As Range
Dim l As Long
Range("g2:k1000").ClearContents
l = 2
If Range("g1") <> "" Then
For Each zelle In Range("A1:a1000")
If InStr(1, zelle, Range("g1").Text) > 0 Then
Cells(l, 7) = zelle
Cells(l, 8) = zelle.Offset(0, 1)
Cells(l, 9) = zelle.Offset(0, 2)
Cells(l, 10) = zelle.Offset(0, 3)
Cells(l, 11) = zelle.Offset(0, 4)
Cells(l, 12) = zelle.Offset(0, 5)
Cells(l, 13) = zelle.Offset(0, 6)
l = l + 1
End If
Next
End If
End Sub
Private Sub CommandButton1_Click()
Call t
End Sub
Das klappt auch alles.
Nun gibt es eine weitere neue Tabelle (Tabelle2)auf der ausschliesslich die Kundendaten stehen.
Meiner Meinung nach müsste der Code dann so umgeschrieben werden, aber das klappt nicht bei VBA :-)
Public Sub t()
Dim zelle As Range
Dim l As Long
Range("g2:k1000").ClearContents
l = 2
If Range("g1") <> "" Then
For Each zelle In Range("Tabelle2!A1:Tabelle2!a1000")
If InStr(1, zelle, Range("g1").Text) > 0 Then
Cells(l, 7) = zelle
Cells(l, 8) = zelle.Offset(0, 1)
Cells(l, 9) = zelle.Offset(0, 2)
Cells(l, 10) = zelle.Offset(0, 3)
Cells(l, 11) = zelle.Offset(0, 4)
Cells(l, 12) = zelle.Offset(0, 5)
Cells(l, 13) = zelle.Offset(0, 6)
l = l + 1
End If
Next
End If
End Sub
Private Sub CommandButton1_Click()
Call t
End Sub
Wie müsste es verändert werden, wer kann mir helfen?
Ich habe die Datei einmal hochgeladen mit Erklärung dazu:
https://www.herber.de/bbs/user/18835.xls
Vielen Dank für Hilfe.