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 21:19:06

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: Doppelt von: Hajo_Zi
Geschrieben am: 16.11.2009 21:28:02

https://www.herber.de/forum/messages/1117758.html


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