Makro gut aber select... vielleicht Werner ?
09.03.2019 09:37:02
sigrid
ich habe folgendes Makro, mit Unterstützung von Werner, läuft soweit
bestens.
Das Problem:
nach dem auffinden und kopieren der Texte, wird nicht die Zeile
selectiert.
Wie kann man dies ändern ?
Private Sub CommandButton5_Click()
Dim rng As Range
Dim lngZeile As Long
Set rng = ActiveSheet.Range("B3:B65000").Find(What:=Me.TextBox2.Value, LookAt:=xlWhole, LookIn:= _
xlValues)
'Wenn Wert gefunden
If Not rng Is Nothing Then
Sheets("KD-Text").Select
lngZeile = rng.Row
ActiveSheet.Unprotect (getStrPasswort)
ActiveSheet.Cells(lngZeile, 2).Value = Me.TextBox2.Value 'für SHB Nr.
ActiveSheet.Cells(lngZeile, 3).Value = Me.TextBox6.Value 'für Firmenname
Cells(lngZeile, Columns.Count).End(xlToLeft).Offset(0, 1) = Format(Date, ("dd.mm.yyyy"))
With Cells(lngZeile, Columns.Count).End(xlToLeft).Offset(0, 0).Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
Cells(lngZeile, Columns.Count).End(xlToLeft).Offset(0, 1) = Me.TextBox19.Value
With Cells(lngZeile, Columns.Count).End(xlToLeft).Offset(0, 0).Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
GoTo weiter
Else
MsgBox ("Wert nicht gefunden")
End If
weiter:
'Formular schließen
'Unload Me
End Sub
mfg sigrid