ich habe schon wieder ein Problem:
In folgendem Programmteil tritt der Fehler 91 auf, hab irgend ein Fehler in der Initialisierung der Variablen denke ich.
Sinn des Programmes ist es aufgrund von Artikelnummern Texte zu übertragen.
Public Sub TextEinsetzten()
Dim zelle As Object ' Objektvariable erstellen.
Set zelle = Sheets("Teileliste-A3") ' Zulässigen Objektverweis erstellen.
Dim StWert As String
'Dim StLetzte As String
' ET-Liste mit den Texten aus der Teileliste A3 Updaten
Sheets("Teileliste-A3").Select
Range("D3").Select
Sheets("ET-Liste").Select
Range("K18").Select
StLetzteZeile = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
AZeile = ActiveCell.Row
' Zellen mit 97.217 suchen
Do Until ActiveCell.Row >= StLetzteZeile
' Eintrag mit Zchg. Nr. Suchen
Do
ActiveCell.Offset(1, 0).Range("A1").Select
If ActiveCell.Row >= StLetzteZeile Then End
Loop Until Left$(ActiveCell, 6) = "97.217"
' ZchgNr. Speichern
TextBox1 = Selection
' ZchgNr. in TeileListe suchen immer von oben an
Sheets("Teileliste-A3").Select
Range("D3").Select
With Worksheets("Teileliste-A3").Range("D3:D110")
Set zelle = Cells.Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
If Not zelle Is Nothing Then
ersteAdresse = zelle.Address
' Einträge Kopieren
' Text holen
ActiveCell.Offset(0, -1).Range("A1").Select
Text = ActiveCell
Sheets("ET-Liste").Select
ActiveCell.Offset(0, -1).Range("A1").Select
ActiveCell = Text
End If
End With
' Zurück zur ZchgNr. und nächste suchen
ActiveCell.Offset(0, 1).Range("A1").Select
Loop
End Sub
Vielen Dank im Voraus.
mfg Alex