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
, dann passiert nichts. Es wird nichts kopiert und eingefügt.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