Makro an Druckbereich anpassen
02.07.2004 11:28:21
Martin
habe mir ein tolles Makro gezaubert, auf welches ich ganz stolz bin :-)
Sub Zeilenhöhe_Spaltenbreite()
Dim i As Integer
Dim summe As Single
Dim summe1 As Single
summe = 0
summe1 = 0
For i = 1 To 33
summe = summe + Rows(i).Height
Next
For i = 1 To 15
summe1 = summe1 + Columns(i).ColumnWidth
Next
MsgBox ("Z " & summe & " S " & summe1)
End Sub
Dieses zeigt mir halt immer die Summe von den entsprechenden Spalten und Zeilen an. Da ich aber mehrere Arbeitsblätter mit verschiedenen Druckbereichen habe, stellt sich mir die Frage, ob man das Makro auch automatisch die Anzahl der Spalten und Zeilen pro Druckbereich rauslesen lassen kann, ohne in jeedm Tabellenblatt das Makro anzupassen!
Danke und Gruß
Martin