Anzeige
Archiv - Navigation
432to436
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
432to436
432to436
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Löschen nur wenn Gruppe >2
29.05.2004 12:40:15
Matthias
Hallo Dieter,
Diese Sub ersetzen:

Private Sub OK_Click()
Dim MSG As Integer
Dim DelName As String
Dim Delrow As Long
Dim Gruppe As String
MsgBox ActiveSheet.Name
If ComboBox1.ListIndex < 0 Then
MsgBox "Sie haben noch keinen Mitarbeiter ausgewählt!", 16, "Löschen"
Exit Sub
End If
DelName = ComboBox1
Gruppe = Cells(Range("B:B").Find(what:=DelName).Row, 1)
If WorksheetFunction.CountIf(Range("A:A"), Gruppe) < 3 Then
MsgBox "Es sind weniger als 3 Mitarbeiter in Gruppe " & Gruppe & " da! Löschen nicht möglich!"
Exit Sub
End If
MSG = MsgBox("Wollen Sie die Daten von   >>   " & DelName & "  <<   wirklich löschen?", _
vbQuestion + vbYesNo, "Löschen")
If MSG = vbNo Then Exit Sub
Delrow = ComboBox1.ListIndex + 6
Rows(Delrow).Delete
Unload Me
End Sub

Gruß Matthias
Anzeige
AW: Löschen nur wenn Gruppe >2 - Korrektur
29.05.2004 12:50:25
Matthias
Hallo Dieter,
das "MsgBox ActiveSheet.Name" muss natürlich raus :-)
und etwas komfortabler ist es, wenn Du dies noch einfügst:

Private Sub UserForm_Activate()
If Not Intersect(ActiveCell, Range("Mitarbeiter")) Is Nothing Then
ComboBox1.Value = ActiveCell
End If
End Sub

Dann ist der evtl. schon selektierte Mitarbeiter gleich in der Liste ausgewählt.
Gruß Matthias
AW: Löschen nur wenn Gruppe >2 - Korrektur
DieterG
Hallo Matthias,
das ist genial !!
Danke nochmal
Gruß Dieter
Danke, geschlossen - o.T.
29.05.2004 13:00:03
Matthias
-

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige