Module (Makros) einbinden
24.08.2003 11:06:19
DieterD.
bräuchte Eure Hilfestellung
möchte gerne wissen, wie ich in dieses Modul:
Sub Such_mich()
Dim Suchtext As String
Dim Zelle As Range
Dim i As Long
Dim j As Integer
Dim KopierteZeilen()
Dim NeueMappe As Worksheet
Dim Arbeitsmappe As String
Dim Schon_da As Boolean
Suchtext = InputBox("Wonach suchen?", , "Arbeit macht Spaß ! oder ?")
If Suchtext <> "" Then
Arbeitsmappe = ActiveWorkbook.Name
Workbooks.Add
Set NeueMappe = ActiveWorkbook.ActiveSheet
i = 2
Workbooks(Arbeitsmappe).Activate
Rows("2:2").Copy NeueMappe.Cells(1, 1)
For Each Zelle In Workbooks(Arbeitsmappe).ActiveSheet.UsedRange
If InStr(1, Zelle.Value, Suchtext, vbTextCompare) > 0 Then
ReDim Preserve KopierteZeilen(i - 2)
Schon_da = False
For j = 0 To UBound(KopierteZeilen)
If KopierteZeilen(j) = Zelle.Row Then Schon_da = True
Next
If Not Schon_da Then
Rows(Zelle.Row & ":" & Zelle.Row).Copy NeueMappe.Cells(i, 1)
i = i + 1
End If
End If
Next
NeueMappe.Activate
Columns("A:Z").EntireColumn.AutoFit
Range("A1").Select
End If
End Sub
folgendes integrieren kann
Sub Blatt_kopieren()
sheets("Daten").Copy
ActiveSheet.Cells.Copy
ActiveSheet.Cells.Select
Selection.PasteSpecial Paste:=xlValues
Range("A1").Select
End Sub
würde mich sehr über eine Antwort freuen
Gruß
Dieter