Hallo Steffi,
ich habe Deinen Quelltext bei mir ausprobiert und er funktioniert tadellos!
Hast Du evtl. einen Tipfehler in den Namen der Arbeitsblätter (in Excel)?
-
Status
-
Potenzial
-
Strategie
-
Graphik
Abgesehen davon hab ich noch einen kleinen Tip für Dich:
Private Sub cmb2_Click()
With ThisWorkbook
.Worksheets("Graphik").Range("B7").Value = .Worksheets("Status").Range("J32").Value
.Worksheets("Graphik").Range("B8").Value = .Worksheets("Potenzial").Range("J20").Value
.Worksheets("Graphik").Range("B9").Value = .Worksheets("Strategie").Range("J19").Value
End With
End Sub
Dieser Quelltext macht das gleiche, nur ohne evtl. Formatierungen (Bedingte Formatierung, Schriftformatierung, Rahmen, etc.) zu kopieren, d.h. nur der Inhalt, den Du auch in der Zelle siehst, wird nach "Graphik" übernommen. Dabei ist es egal ob in der Quell-Zelle das Ergebnis einer Formel steht, Text oder eine beliebige Zahl.
Solltest Du feststellen, dass - wenn es sich um Zahlen handelt, die übergeben werden sollen - diese unnötige Nachkommastellen etc. enthalten, musst Du mit dem Befehl "Format" das ganze in seine Schranken weisen.
|