Modul Userform Modul

Roger · 2007-04-29T16:26:42+00:00

Hallo Zusammen, meine Frage bezieht sich noch einmal auf eine UserForm. Ich starte aus einem Modul eine Userform. Danach gehe ich wieder zurück. Das mache ich mit unloade me und dann komme ich an die gleiche Stelle. Was muss ich tun wenn ich an eine andere stelle in dem Modul springen möchte oder sogar in ein anderes Modul. Hat jemand eine idee? Gruss 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.

Hallo Roger,
nebenbei, statt "auto_open" solltest du "Workbook_Open" verwenden.
Du musst halt einfach den Rückgabewert auswerten.
Private Sub Workbook_Open()
Dim Anlagetyp As Integer

If Sheets(1).Range("A4") = "" Then

    ''' Abfrage des Analgetyp
    With Userform11
        .Show
        Analgetyp = CDbl(.TextBox1)
    End With

    Select Case Anlagetyp
        Case 1
            ''' 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
        Case 2
            ''' was bei einem anderen Wert geschehen soll!
        Case Else
    End Select

    ''' Ausrichten der Überschrift
    With Range("A2:C2", "A4:C4")
        .HorizontalAlignment = xlCenterAcrossSelection
        .VerticalAlignment = xlCenter
    End With

Else

    ''' Ausrichten der Überschrift
    With Range("A2:C2", "A4:C4")
        .HorizontalAlignment = xlCenterAcrossSelection
        .VerticalAlignment = xlCenter
    End With
End If
End Sub

Gruß Sepp

Forumthread: Modul Userform Modul

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Modul Userform Modul

Forumthread: Modul Userform Modul

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread