Sortieren und Fehler-Zeilen unterbinden

Public Sub Anwesenheiten_Zeilen_ausblenden() Application.ScreenUpdating = False For i = 1 To 100 If Cells(i, 1).Value = "x" Then Rows(i).Hidden = True End If Next i Application.ScreenUpdating = True Range("A5:A40").Select End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hasllo Christian
auf die schnelle mal ein paar Makro Vorschläge von mir. Eine Sortierroutine für das Blatt Mitarbeiter, und eine Beispiel Makro wie du Zeilen überspringen kannst. Der Vielfalt zum Überspringen sind keine Grenzen gesetzt. Da kannst du dir jede Möglichkeit ausdenken. Von Schrift auf Fett setzen, Grösse änderrn, Schrift oder Innenfarbe setzen, ein "+" oder "#" Zeichen im Text einfügen. Alles ist zum Auswerten mit IF Then geeignet. Siehe Demo makro.
Da du VBA lernen willst kannst du das Makro dann selbst weiter entwickeln.
mfg Piet

Sub Mitarbeiter_sortieren()
With ActiveWorkbook.Worksheets("Mitarbeiter").ListObjects("Tabelle1")
.Sort.SortFields.Clear
.Sort.SortFields.Add Key:=Range("Tabelle1[Name]"), SortOn:=xlSortOnValues, _
Order:=xlAscending, DataOption:=xlSortNormal
With .Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End With
End Sub


Public Sub Anwesenheiten_Zeilen_ausblenden()
Application.ScreenUpdating = False
With Worksheets("Anwesenheiten AGH")
.Rows.Hidden = False  'Alle Zeilen einblenden
For I = 1 To .Cells(4, 1).End(xlDown).Row
If .Cells(I, 1).Value = "x" Then .Rows(I).Hidden = True
Next I
End With
With Worksheets("Anwesenheiten A&I")
.Rows.Hidden = False  'Alle Zeilen einblenden
For I = 1 To .Cells(4, 1).End(xlDown).Row
If .Cells(I, 1).Value = "x" Then .Rows(I).Hidden = True
Next I
End With
End Sub

Sub Demo_zum_Zeilen_überspringen()
For I = 1 To .Cells(4, 1).End(xlDown).Row
'einige Varianten um Zeilen zu überspringen
If InStr(.Cells(I, 1), "**") Then GoTo nx '** am Text Ende
If Left(.Cells(I, 1), 1) = "#" Then GoTo nx '# am Text Anfang
If .Cells(I, 1).Value = "Mein Texz" Then GoTo nx
If .Cells(I, 1).Font.Bold = True Then GoTo nx
If .Cells(I, 1).Font.Size > 10 Then GoTo nx
If .Cells(I, 1).Font.ColorIndex = 5 Then GoTo nx
If .Cells(I, 1).Interior.Color xlNone Then GoTo nx
If .Cells(I, 1).Value = "x" Then .Rows(I).Hidden = True
nx: 'Zeile überspringen
Next I
End Sub

Hallo Piet,
VBA lernen wollen, ist ein wenig zu viel gesagt. Vorrangig möchte ich in Excel fit werden.
Immerhin verstehe ich Deinen Code soweit, dass ich nachvollziehen kann, dass "Mitarbeiter_sortieren" das Selbe macht, wie die manuelle Sortierung in der Tabelle.
Ich habe aber keine Idee, wie ich Einträge in den Kalenderbereichen der Sheets "Anwesenheiten xxx" mitnehme.
Geschieht das nicht, hat Mitarbeiter A den Urlaub von Mitarbeiter F verbraucht und die unentschuldigten Fehltag von Mitarbeiter B werden Mitarbeiter G zugeordnet.
Die würden mir den Kopf abreissen! ;-)
Kann man das über eine Bereichsverknüpfung lösen?
Idee anhand Sheet Anwesenheiten AGH.
Bereich A5 bis C40 wird ja aus der Tabelle "Mitarbeiter" geholt, wo die Mitarbeiter nach Name sortiert werden.
Bereich D5 bis K40 berechnet nur die jeweiligen Zeilen und wird in einer Verknüpfung ausgespart.
Im Bereich L5 bis NL40 (das eigentliche Kalenderblatt) werden die Einträge in den Zeilen, an die Zeilen im Bereich A5 bis C40 (Mitarbeitername, InJobNr, U-Anspr.) gebunden und bei Sortierung mitgenommen...
Im Web habe ich allerdings nichts Passendes hierzu gefunden.

Beliebteste Forumthreads (12 Monate)

Sortieren und Fehler-Zeilen unterbinden

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread