Hallo!
Bringe folgenden Code nicht zum laufen:
Windows(strDateiRepQM).Activate
Sheets("Reparaturauftrag").Activate
Dim strLinieRep As String
strLinieRep = Workbooks(strDateiRepQM).Sheets("Reparaturauftrag").[L10]
'Entwerder Zahl mit R
If strLinieRep = "##R" Then
Range("C10:C" & intPosGelE).Select
Selection.Copy
'6. Umstieg auf Monatsrechnung: einfügen Text
Windows(strDateiMonat).Activate
Sheets(strMonatSheets1).Activate
Cells(intPosMonA, 5).Select
ActiveSheet.Paste
Application.CutCopyMode = False
'oder Zahl ohne R
Else
If strLinieRep = "##" Then
Range("C11:C" & intPosGelE).Select
Selection.Copy
'6. Umstieg auf Monatsrechnung: einfügen Text
Windows(strDateiMonat).Activate
Sheets(strMonatSheets1).Activate
Cells(intPosRepTextA, 5).Select
ActiveSheet.Paste
Application.CutCopyMode = False
End If
End If
strLinieRep = ist eine ein oder zweistellige Zahl oder eine ein bis zweistellige Zahl mit einen "R" angehängt (Z. B. "4" oder "4R")
Je nach dem was es ist soll etwas anderes ausgeführt werden, aber da stimmt etwas nicht mit meinen Code. Kann mir jemand von Euch sagen was da nicht stimmt!
Danke im Voraus
Gerhard