Spalten vergrößern ( sicht fixieren )
05.02.2004 15:32:27
SePp
Ich glaube ich hatte zuvor in dem Beitrag nicht genau genug beschrieben Also nochmal
Ich habe eine große Exel Tabelle in dieser habe ich Buttons integriert die meine Tabellenfelder über eine Makro vergrößern oder verkleinern.
Das Probelm ist folgendes: wenn ich in Feld IK 6 bin also sehr weit rechts und z.b. auf den Button vergrößern klicke Zoomt Exel wieder in das Feld A1. Kann man das irgendwie verhindern? desweiteren würde ich gerne nur die 3 Spalten davor und die 3 dahinter vergrößern??? GEht das...
ODER...
Punktweise vergrößern. Also wenn ich einmal klicke soll die Spalte um eins breiter werden bei zweimal noch einen mehr... usw....
hier mal mein Code:
_____________________________________________________
Private Sub CommandButton1_Click()
Cells.Select
Selection.ColumnWidth = 16
End Sub
Private Sub CommandButton2_Click()
Cells.Select
Selection.ColumnWidth = 4
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
With CommandButton1
.Top = ActiveCell.Offset(2, 3).Top
.Left = ActiveCell.Offset(2, 3).Left
End With
With CommandButton2
.Top = ActiveCell.Offset(4, 3).Top
.Left = ActiveCell.Offset(4, 3).Left
End With
End Sub
--------------------------------------------------
Danke im Voraus fürs Lesen eindenken und antworten
Mfg
SePp