Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen

Korrektur Code? | Herbers Excel-Forum


Betrifft: Korrektur Code? von: Dirk
Geschrieben am: 16.11.2009 20:56:35

Guten Abend,

ich habe mir folgenden Code zusammengebastelt, dieser funktioniert auch soweit. Ich möchte aber _ gerne, dass nach dem Löschbefehl der ausgewählten Zeile die Seite nicht mittels Application.Goto auf das Tabellenblatt 2 umspringt, sondern auf der Tabellenblatt 1 verharrt. Gibt es dafür eine Möglichkeit den Löschbefehl anders auszudrücken? Die Userform1 wird über einen CommandButton auf Tabellenblatt 1 geöffnet. Eine ComboBox auf der Userform1 löst folgenden Code aus:


Private Sub ComboBox1_Change()
Dim myRange     As Range
Dim strAddress  As String

    With Worksheets("Tabelle2")
     Set myRange = .Columns(2).Find(What:=Userform1.ComboBox1.Value, _
         LookIn:=xlValues, LookAt:=xlPart, After:=.Cells(Rows.Count, 2))
            If Not myRange Is Nothing Then
               strAddress = myRange.Address
               
               Application.Goto Reference:=Worksheets("Tabelle2").Range(myRange.Address),  _
Scroll:=False
                   ActiveCell.EntireRow.Delete
                Application.ScreenUpdating = False   
            End If
    End With
Userform1.Hide
End Sub

Schöne Grüße,
Dirk

  

Betrifft: AW: Korrektur Code? von: Beni
Geschrieben am: 16.11.2009 22:21:04

Hoi Dirk,
Beni

Private Sub ComboBox1_Change()
Dim myRange     As Range
Dim strAddress  As String

    With Worksheets("Tabelle2")
     Set myRange = .Columns(2).Find(What:=Userform1.ComboBox1.Value, _
         LookIn:=xlValues, LookAt:=xlPart, After:=.Cells(Rows.Count, 2))
            If Not myRange Is Nothing Then
               strAddress = myRange.Row
               
               Worksheets("Tabelle2").Rows(strAddress).EntireRow.Delete
                Application.ScreenUpdating = False
            End If
    End With
Userform1.Hide
End Sub



  

Betrifft: AW: Korrektur Code? von: Dirk
Geschrieben am: 16.11.2009 23:00:27

Hallo Beni,

vielen Dank!

Grüße, Dirk


Beiträge aus den Excel-Beispielen zum Thema "Korrektur Code?"