Kompliziertes Spingen...
29.04.2007 17:14:00
Roger
Ich weiss genau was Du meinst, aber ich weiss nicht wie umsetzen.
Ich habe das Makro etwas zurecht kopiert.
In der Userform11 habe ich drei Knöpfe.
Knopf 1: Spaltenbreite
Knopf 2: Zeilenhöhe
Knopf 3: Ausrichten der Überschrift
Wie kann ich nun in der Userform11 sagen das der Knopf 1 zu der Spaltenbreite spingt?
Sub auto_open()
Select Case Sheets(1).Range("A4")
Case ""
''' Abfrage des Analgetyp
Dim Anlagetyp As Integer
With Userform11
.Show
Analgetyp = CDbl(TextBox1)
End With
''' Spaltenbreite
Columns("A:A").ColumnWidth = 18
Columns("B:B").ColumnWidth = 29
Columns("C:C").ColumnWidth = 29
''' Zeilenhöhe
Rows(1).RowHeight = 10
Rows(3).RowHeight = 10
Rows(5).RowHeight = 10
Rows(6).RowHeight = 16
''' Ausrichten der Überschrift
Range("A2:C2", "A4:C4").Select
With Selection
.HorizontalAlignment = xlCenterAcrossSelection
.VerticalAlignment = xlCenter
End With
Case Is ""
''' Ausrichten der Überschrift
Range("A2:C2", "A4:C4").Select
With Selection
.HorizontalAlignment = xlCenterAcrossSelection
.VerticalAlignment = xlCenter
End With
End Sub
Sorry das ich es nicht besser erklären kann, aber vielleicht verstehst du was ich meine.