2 Merkwürdigkeiten
ing.grohn
hier zwei merkwürdige Sachen:
1. in einer Tabelle verwalte ich über eine Userform Adressen. Bisher konnte ich einzelne Adressen kopieren/dublizieren, indem ich sie aufrief, die Anzahl der belegten Zeilen ermittelte und dann die Userformtextboxelemente in die entsprechenden Zeilen speicherte (Anzahl natürlich um 1 erhöht).
Jetzt wird die Userform plötzlich während des speichern bis auf das erste Element geleert.
Warum passiert sowas?
2. bisher konnte ich in der Datei mit einer Suchroutine vorwärts und rückwärts blättern:
Function NameSuchen(SuchName As String, Taste As String) As String
Dim Zeile As String
Dim StrName As String
Dim Suche As Boolean
If StrName SuchName Then
On Error GoTo fehler
If Taste = "pgup" Then
Range("A:F").Find(What:=SuchName, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, _
MatchCase:=False, SearchFormat:=False).Activate
StrName = SuchName
ElseIf Taste = "pgdn" Or Taste = "enter" Then
Range("A:F").Find(What:=SuchName, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
StrName = SuchName
End If
Else
Range("A:F").FindNext(After:=ActiveCell).Activate
End If
Suche = True
Zeile = ErmZeile(ActiveCell.Address)
Uf_Adressen.Caption = Titel & Zeile & " / akt Datensatz= " & D_Satz & Ver
NameSuchen = Zeile
Exit Function
fehler:
MsgBox "Ein Datensatz " & Chr(34) & SuchName & Chr(34) & " konnte nicht gefunden werden"
NameSuchen = ""
End Function
was ist da passiert?
Vielleicht weiss jemand warum das so ist und verräts mir.
An dieser Stelle recht herzlichen Dank
Mit freundlichen Grüßen
Albrecht
Anzeige