max. Werte (Formatierung) in VBA
28.09.2016 11:46:52
Fred
ich nutze ein vba, um Werte in einer ausgeblendeten Spalte anzuzeigen.
Der Code:
Sub Einblick1()
'Spalte K aus Tabelle2 wird gelöscht, zurück zu Tabelle1
Sheets("Tabelle2").Select
Columns("K:K").Select
Selection.Delete Shift:=xlToLeft
Sheets("Tabelle1").Select
'Bereich in Spalte K wird kopiert und in Tabelle2 Zelle K4 eingefügt
Range("K4:K10").Select
Selection.Copy
Sheets("Tabelle2").Select
Range("K4").Select
ActiveSheet.Paste
'Bereich in Tabelle2 wird als bmp kopiert und in Tabelle1 eingefügt
Worksheets("Tabelle2").Range("K4:K10").CopyPicture _
Appearance:=xlScreen, Format:=xlBitmap
With Worksheets("Tabelle1")
.Paste Destination:=.Range("B2")
End With
Sheets("Tabelle1").Select
End Sub
Meine Frage:
Ist der Code so OK oder läßt sich die ein oder andere Anweisung (in Hinsicht auf den Code-Umfang) optimieren?
und noch ne Frage:
Kann die Ermittlung und Formatierung des Max. Wert auch in diesem VBA vorgenommen werden,- anstatt im Arbeitsblatt?
anbei;
ein einfach gehaltenes Arbeitsblatt
https://www.herber.de/bbs/user/108478.xlsm