Schrift vergrößern nach einfügen
09.03.2021 20:40:22
oraculix
ich habe ein makro das mir aus der suche etwas findet und dan in eine tabelle einfügt.
das makro funtioniert auch fehlerfrei nur die schrift die eingefügt wird ist zu klein.
deshalb habe ich folgendes macro aufgezeichnet.
Range("A2:J5293").Select
Selection.Font.Size = 14
wenn ich das aber mit dem funktionierenden makro kombiniere kommt fehler 400.
frage : wo in welcher zeile muss ich das einfügen?
'Nach dem suchen wird in Gefunden Tabelle der gesuchte Eintrag gelistet.
Sub FilmDBFindenUndKopieren()
Dim iRowT As Long
Dim sWord As String, strFirstAddress As String
Dim objCell As Range
sWord = InputBox(Prompt:="Suchbegriff:", Default:="Filmname")
If sWord "" Then
iRowT = 3
With Worksheets("Gefunden")
Set objCell = Columns(1).Find(What:=sWord, _
LookIn:=xlValues, LookAt:=xlPart, MatchCase:=False)
If Not objCell Is Nothing Then
strFirstAddress = objCell.Address
Do
objCell.EntireRow.Copy .Cells(iRowT, 1)
iRowT = iRowT + 1
Set objCell = Columns(1).FindNext(After:=objCell)
Loop Until objCell.Address = strFirstAddress
Set objCell = Nothing
Worksheets("Gefunden").Activate
End If
End With
End If
End Sub