Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1116to1120
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Korrektur Code?

Korrektur Code?
Dirk
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Korrektur Code?
16.11.2009 22:21:04
Beni
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

AW: Korrektur Code?
16.11.2009 23:00:27
Dirk
Hallo Beni,
vielen Dank!
Grüße, Dirk
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige