Spalten breite wird Verkleinert
08.03.2021 15:59:05
oraculix
ich denke .Columns.AutoFit ist daran schuld. nur wenn ich es deaktiviere bekomme ich einen fehler.
frage: wie kann ich es vermeiden das die spaltenbreite verkleinert wird?
'Nach dem suchen wird in "Tabelle Gefunden" der gesuchte Eintrag gelistet.
Sub AnsehenFindenUndKopieren()
Dim iRowS As Integer, iRowT As Integer
Dim sWord As String
sWord = InputBox( _
prompt:="Suchbegriff:", _
Default:="Filmname")
If sWord = "" Then Exit Sub
iRowS = 3
iRowT = 3
With Worksheets("Gefunden")
Do Until IsEmpty(Cells(iRowS, 1))
If UCase(Cells(iRowS, 1)) Like "*" & UCase(sWord) & "*" Then
Rows(iRowS).Copy .Rows(iRowT)
iRowT = iRowT + 1
End If
iRowS = iRowS + 1
Loop
.Columns.AutoFit
.Select
End With
End Sub