|
hallo,
das wäre zum Suchen, aber das willst du nicht?
Sub Makro1()
Dim sb As String
sb = "2012/12"
ActiveSheet.Cells.Find(What:=sb, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
End Sub
hier etwas anderes - es ist sehr schwierig wenn man das Blatt nicht sehen kann, also kann ich nur ungefähr eine Richtung vorgeben. allerdings dürfen die Werte in der Spalte 4, in der nach dem Suchbegriff sb gesucht wird, keine Lücken aufweisen. vielleicht hilft es weiter...
Sub Makro2()
Dim z As Integer
Dim sb As String
sb = "2012/12"
Worksheets("blatt1").Activate
z = 3
Do Until (ActiveSheet.Cells(z, 4) = "")
If (ActiveSheet.Cells(z, 4) = sb) Then
'Bereich der kopiert werden soll
ActiveSheet.Range("a8:b27").Copy
'einfügen auf blatt 2
Worksheets("blatt2").Activate
ActiveSheet.Range("a1").Activate
ActiveSheet.Paste
z = z + 1
Worksheets("blatt1").Activate
Else
z = z + 1
End If
Loop
End Sub
|