VBA - Automatisch sortieren wenn eine Zeile Von Bis ausgefüllt ist

[merkurus]

Hallo Leute

Könnt ihr mir bitte bei folgenden Problem lösen. Nachfolgend habe ich eine Beispieltabelle.
Die soll automatisch per VBA sortiert werden nach Spalte B.
Ich habe auch schon VBA-Script gefunden für automatisches Sortieren.

Option ExplicitPrivate Sub Worksheet_Change(ByVal Target As Range)
Dim Sortierspalte As String
Dim Bereich As String
Bereich = "A1:D20"
Sortierspalte = "B"
ActiveSheet.Range(Bereich).Sort _
 Key1:=Range(Sortierspalte & "1"), Order1:=xlAscending, _
 Header:=xlGuess, MatchCase:=False, _
 Orientation:=xlTopToBottom
End Sub

Also das funktioniert im Prinzip schon. Nur möchte ich, das das Sortieren erst ausgeführt wird, 
wenn z.B. in der dritten Zeile von A3 bis D3 alle Zellen befüllt sind bzw. nicht leer sind.
Und so soll es auch bei den anderen Zeilen passieren. Wie müßte man das Script erweitern.
Wäre prima, wenn ihr das hin kriegt.

Gruß


Tabelle1

	A	B	C	D
1	Name	Datum	Nummer	Benennung
2	Bernd	05.04.2016	X102	Halter
3	Robert	24.03.2016	X155	Leiste
4	Hans	21.03.2016	X245	Schiene
5	Klaus	22.03.2016	X123	Feder
6
7

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8

[schauan]

Hallöchen,

im Prinzip so:

Code:

If WorksheetFunction.CountA(Range("A3:D3")) = 4 Then
  'Tu was
End If

[merkurus]

Hallo

Danke für die Antwort.
Ich hab jetzt mal probiert, ob ich das flexibel für anderen Zeilen auch hin bekomme.
Klappt aber nicht so toll wie es soll.
Werde es doch jetzt mit einem anklickbaren Button machen.
Sollen ja auch andere Mitarbeiter mit der Liste arbeiten können.

Gruß

[Kuwer]

Hallo,

so z.B.:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
 With Me.Range("A1:D20")
   If Not Application.Intersect(.Cells, Target.EntireRow) Is Nothing Then
     If Application.CountA(Application.Intersect(.Cells, Target.EntireRow)) = 4 Then
       .Sort Key1:=.Cells(1, 2), Order1:=xlAscending, Header:=xlYes, _
             MatchCase:=False, Orientation:=xlTopToBottom
     End If
   End If
 End With
End Sub

Gruß Uwe

[merkurus]

Hallo Uwe

Vielen Dank. Das funktioniert ja perfekt. Genau so wollte ich das. Jetzt hat sich nämlich noch ein anderes Problem gelöst.
Man kann jetzt auch die Rückgängig-Funktion benutzen. Jedenfalls solange bis noch nicht alles eingegeben ist in einer Zeile,
Ich glaube so kommen meine Kollegen zurecht.

Gruß