Form finden und Kopieren! Hilfe Bitte!
04.07.2019 15:42:11
Leon.DerProf
Ich habe ein folgendes Makro. Ich brauche dringend Hilfe! Bitte!
Wenn ich zwei Formen habe, einmal
"*| Nr. " & ZahlNr
und
s.name Like "Zeit " & ZahlNr
Diese Formen werden beide gefunden und kopiert. Ohne Probleme!
Aber wenn ich die zweite Form NICHT habe, also
s.name Like "Zeit " & ZahlNr
Ich bin wirklich am verzweifeln. Bitte helft mir damit. Ich gebe jede Information und tue alles, um euch zu helfen, mir zu helfen.
Druck = Worksheets(3).Range("U1").Value
Set finden = Range("Tabelle2[Maßnahme]").Find(what:=Druck)
ZahlNr = finden.Offset(0, -4).Value
Worksheets(2).Activate
Dim s As Shape, i, x As Object, n
Set x = CreateObject("scripting.dictionary")
For Each s In ActiveSheet.Shapes
i = i + 1
If s.name Like "*| Nr. " & ZahlNr Or s.name Like "Zeit " & ZahlNr Then
x(i) = 0
End If
Next
If x.Count > 1 Then
With ActiveSheet.Shapes.Range(x.keys).Group
.Copy
End With
Sheets("Drucken").Select
Range("A1").Select
ActiveSheet.Paste
End If
Liebe Grüße
Leon