AW: Commandbutton ansprechen
24.09.2021 13:55:59
Dieter
Hey Daniel,
Ich arbeite daran es zwischen den richtigen Ablauf zu machen. es klappt aber nur teilweise, Warum ?
Dachte aber auch mit Deinen Kenntnissen das Du den Code kürzer erstellen könntest, deshalb meine Frage.
Habe ja mit dem Recorder für die Zeile F2 noch mehr, damit es vernünftig aussieht.
Hier mal das vom Recorder was nur mit der Zelle F2 zu tun hat
Rows("1:1").RowHeight = 27
With ActiveWindow
.SplitColumn = 0
.SplitRow = 1
End With
ActiveWindow.FreezePanes = True
ActiveSheet.Range("F1").Select
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 5296274
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Und nachfolgend der bis jetzt ganze Code der funkt
Private Sub CommandButton2_Click()
Dim ws As Worksheet, _
rErg As Range, _
strSearch As String, _
StrFirstFound As String, _
iFound As Integer
strSearch = InputBox("wonach wollen Sie suchen?", , "")
If strSearch = "" Then Exit Sub
Worksheets.Add Before:=Worksheets(1) ' wird ein Tabellenblatt ganz rechts erstellt
ActiveSheet.Name = "Gefunden"
For Each ws In ThisWorkbook.Worksheets
If ws.Index > 1 Then
Set rErg = ws.Range("C:C").Find(strSearch)
If Not rErg Is Nothing Then
StrFirstFound = rErg.Address
Do
iFound = iFound + 1
'Ausgabe Fundzeile
rErg.EntireRow.Copy (ThisWorkbook.Worksheets(1).Cells(iFound, 1))
Set rErg = ws.Range("C:C").FindNext(rErg)
Loop While Not rErg Is Nothing And rErg.Address StrFirstFound
End If
End If
Next ' ws
With Worksheets("Gefunden") 'Blattname anpassen
.Columns("A:A").ColumnWidth = 14 ' Zeilenbreite anpassen
.Columns("B:B").ColumnWidth = 14
.Columns("C:C").ColumnWidth = 120
End With
ActiveSheet.Range("F1").Value = "Userform"
ActiveSheet.Range("A3").Select
End Sub
Hoffe mal das es nicht zu viel ist für ein Freitag 'lol
Wie gesagt nur wenn es Dir keine Mühe macht mal darüber zu schauen.
Aber trotzdem vielen Danke wie Du mir bis jetzt geholfen hast.
Mfg.
Dieter