Hallo Leute,
ich muss zur Zeit ein kleines Programm mit vba anfertigen und habe eine Frage ...
Die Idee ist, dass das Programm im "Blatt2" bestimmte Zellen färbt, ihnen einen Inhalt gibt und sie dann verbindet.
Im großen und ganzen macht es das auch nur mit dem kleinen Schönheitsfehler, dass er es nicht packt das blatt zu wechseln.
Soll heißen, wenn ich dasThisWorkbook.Sheets("Blatt2") weglasse, macht er was ich will aber im falschen Blatt. Mit ThisWorkbook.Sheets("Blatt2") gibts nur
eine Fehlermeldung.
Wieso?
Hier der Sorgenteil für den Kontext:
If maschine.Cells(y, x).Interior.ColorIndex = xlNone Then
Application.DisplayAlerts = False
ThisWorkbook.Sheets("Blatt2").Range(Cells(y, x), Cells(y, x + 1)).Select
With Selection
.Value = eingabemaske.Range("C4").Value
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Interior.ColorIndex = Farbe
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With
Selection.Merge
Application.DisplayAlerts = True
anzahl = anzahl + 1
Else
MsgBox ("Nicht genügend frei Schichten ab gewähltem Startdatum")
Exit Sub
End If
|