Hi P@ulchen,
das Beispiel ist echt klasse, würde ich gerne übernehmen. Hab es auch schon versucht es einzutragen, aber er filtert in meiner Liste wieder nicht. Ich kann mir die Daten zwar wieder einzeln anzeigen lassen, aber sobald ich beide anwähle kommt die Fehlermeldung:
Laufzeitf.: 380
Eigenschaft Column konnte nicht gesetzt werden. Ungültiger Eigenschaftswert.
Ich hab allerdings, da die ListBox in einem anderen Userform liegt, von
ListBox1.Column = arr
auf
UF_gefilterte_Daten.ListBox1.Column = arr
geändert, aber das sollte doch wohl nicht das Problem sei, oder?
Ich setz hier mal den ganzen Code von der gesamten UF ein. Vielleicht hab ich ja auch vorher schon mal n Fehler gemacht, der mich verfolgt.
Danke dir schon mal.
Lieben Gruß Jörg
Mein Code:
###############
Private Sub CommandButton1_Click()
End Sub
Private Sub ComboBox12_Change()
Dim strVorname
Dim laufNRVor As Integer
intlaufNRVor = 0
strVorname = ComboBox12.Value
If strVorname > "" Then
For intZaehler = 3 To intDatenAnzahl + 3
intlaufNRVor = intlaufNRVor + 1
If strVorname = Worksheets("PersonenDaten").Cells(intZaehler, 3).Value Then
intlaufNRVor = intlaufNRVor + 1
Worksheets("filter").Cells(intZaehler, 1).Value = laufNRVor
Worksheets("filter").Cells(intZaehler, 2).Value = Worksheets("PersonenDaten").Cells(intZaehler, 2).Value
Worksheets("filter").Cells(intZaehler, 3).Value = Worksheets("PersonenDaten").Cells(intZaehler, 3).Value
Worksheets("filter").Cells(intZaehler, 4).Value = Worksheets("PersonenDaten").Cells(intZaehler, 4).Value
Worksheets("filter").Cells(intZaehler, 5).Value = Worksheets("PersonenDaten").Cells(intZaehler, 5).Value
Worksheets("filter").Cells(intZaehler, 6).Value = Worksheets("PersonenDaten").Cells(intZaehler, 6).Value
Worksheets("filter").Cells(intZaehler, 7).Value = Worksheets("PersonenDaten").Cells(intZaehler, 7).Value
Worksheets("filter").Cells(intZaehler, 8).Value = Worksheets("PersonenDaten").Cells(intZaehler, 8).Value
Worksheets("filter").Cells(intZaehler, 9).Value = Worksheets("PersonenDaten").Cells(intZaehler, 9).Value
Worksheets("filter").Cells(intZaehler, 10).Value = Worksheets("PersonenDaten").Cells(intZaehler, 10).Value
Worksheets("filter").Cells(intZaehler, 11).Value = Worksheets("PersonenDaten").Cells(intZaehler, 11).Value
Worksheets("filter").Cells(intZaehler, 12).Value = Worksheets("PersonenDaten").Cells(intZaehler, 12).Value
Worksheets("filter").Cells(intZaehler, 13).Value = Worksheets("PersonenDaten").Cells(intZaehler, 13).Value
Worksheets("filter").Cells(intZaehler, 14).Value = Worksheets("PersonenDaten").Cells(intZaehler, 14).Value
Worksheets("filter").Cells(intZaehler, 15).Value = Worksheets("PersonenDaten").Cells(intZaehler, 15).Value
Worksheets("filter").Cells(intZaehler, 16).Value = Worksheets("PersonenDaten").Cells(intZaehler, 16).Value
Worksheets("filter").Cells(intZaehler, 17).Value = Worksheets("PersonenDaten").Cells(intZaehler, 17).Value
Worksheets("filter").Cells(intZaehler, 18).Value = Worksheets("PersonenDaten").Cells(intZaehler, 18).Value
End If
Next intZaehler
End If
Unload Me
UF_gefilterte_Daten.Show
End Sub
########################
Private Sub ComboBox13_Change()
Dim strNachname
Dim laufNR As Integer
intlaufNR = 0
strNachname = ComboBox13.Value
If strNachname > "" Then
For intZaehler = 3 To intDatenAnzahl + 3
intlaufNR = intlaufNR + 1
If strNachname = Worksheets("PersonenDaten").Cells(intZaehler, 4).Value Then
intlaufNR = intlaufNR + 1
Worksheets("filter").Cells(intZaehler, 1).Value = laufNR
Worksheets("filter").Cells(intZaehler, 2).Value = Worksheets("PersonenDaten").Cells(intZaehler, 2).Value
Worksheets("filter").Cells(intZaehler, 3).Value = Worksheets("PersonenDaten").Cells(intZaehler, 3).Value
Worksheets("filter").Cells(intZaehler, 4).Value = Worksheets("PersonenDaten").Cells(intZaehler, 4).Value
Worksheets("filter").Cells(intZaehler, 5).Value = Worksheets("PersonenDaten").Cells(intZaehler, 5).Value
Worksheets("filter").Cells(intZaehler, 6).Value = Worksheets("PersonenDaten").Cells(intZaehler, 6).Value
Worksheets("filter").Cells(intZaehler, 7).Value = Worksheets("PersonenDaten").Cells(intZaehler, 7).Value
Worksheets("filter").Cells(intZaehler, 8).Value = Worksheets("PersonenDaten").Cells(intZaehler, 8).Value
Worksheets("filter").Cells(intZaehler, 9).Value = Worksheets("PersonenDaten").Cells(intZaehler, 9).Value
Worksheets("filter").Cells(intZaehler, 10).Value = Worksheets("PersonenDaten").Cells(intZaehler, 10).Value
Worksheets("filter").Cells(intZaehler, 11).Value = Worksheets("PersonenDaten").Cells(intZaehler, 11).Value
Worksheets("filter").Cells(intZaehler, 12).Value = Worksheets("PersonenDaten").Cells(intZaehler, 12).Value
Worksheets("filter").Cells(intZaehler, 13).Value = Worksheets("PersonenDaten").Cells(intZaehler, 13).Value
Worksheets("filter").Cells(intZaehler, 14).Value = Worksheets("PersonenDaten").Cells(intZaehler, 14).Value
Worksheets("filter").Cells(intZaehler, 15).Value = Worksheets("PersonenDaten").Cells(intZaehler, 15).Value
Worksheets("filter").Cells(intZaehler, 16).Value = Worksheets("PersonenDaten").Cells(intZaehler, 16).Value
Worksheets("filter").Cells(intZaehler, 17).Value = Worksheets("PersonenDaten").Cells(intZaehler, 17).Value
Worksheets("filter").Cells(intZaehler, 18).Value = Worksheets("PersonenDaten").Cells(intZaehler, 18).Value
End If
Next intZaehler
End If
Unload Me
UF_gefilterte_Daten.Show
End Sub
####################################
Private Sub ComboBox2_Change()
Dim aRow As Long
Dim col As New Collection
Dim iRow, iRowU, x As Long
Dim VName, FName As String
Dim arr() As Variant
Worksheets("PersonenDaten").Visible = True
Worksheets("PersonenDaten").Select
VName = ComboBox2.Value
FName = ComboBox3.Value
If FName = "" Then Exit Sub
UF_gefilterte_Daten.ListBox1.Clear
iRowU = 0
If VName = "alle" Then
If FName = "alle" Then
UF_gefilterte_Daten.ListBox1.List = Worksheets("PersonenDaten").Range(Cells(2, 1), Cells(aRow, 3)).Value
Else
For iRow = 2 To aRow
If Cells(iRow, 2) = FName Then
ReDim Preserve arr(0 To 2, 0 To iRowU)
arr(0, iRowU) = Cells(iRow, 1)
arr(1, iRowU) = Cells(iRow, 2)
arr(2, iRowU) = Cells(iRow, 3)
arr(3, iRowU) = Cells(iRow, 4)
arr(4, iRowU) = Cells(iRow, 5)
arr(5, iRowU) = Cells(iRow, 6)
arr(6, iRowU) = Cells(iRow, 7)
arr(7, iRowU) = Cells(iRow, 8)
arr(8, iRowU) = Cells(iRow, 9)
arr(9, iRowU) = Cells(iRow, 10)
arr(10, iRowU) = Cells(iRow, 11)
arr(11, iRowU) = Cells(iRow, 12)
arr(12, iRowU) = Cells(iRow, 13)
arr(13, iRowU) = Cells(iRow, 14)
arr(14, iRowU) = Cells(iRow, 15)
arr(15, iRowU) = Cells(iRow, 16)
arr(16, iRowU) = Cells(iRow, 17)
arr(17, iRowU) = Cells(iRow, 18)
iRowU = iRowU + 1
End If
Next iRow
UF_gefilterte_Daten.ListBox1.Column = arr
End If
Else
For iRow = 2 To aRow
If FName = "alle" Then
If Cells(iRow, 1) = VName Then
ReDim Preserve arr(0 To 2, 0 To iRowU)
arr(0, iRowU) = Cells(iRow, 1)
arr(1, iRowU) = Cells(iRow, 2)
arr(2, iRowU) = Cells(iRow, 3)
arr(3, iRowU) = Cells(iRow, 4)
arr(4, iRowU) = Cells(iRow, 5)
arr(5, iRowU) = Cells(iRow, 6)
arr(6, iRowU) = Cells(iRow, 7)
arr(7, iRowU) = Cells(iRow, 8)
arr(8, iRowU) = Cells(iRow, 9)
arr(9, iRowU) = Cells(iRow, 10)
arr(10, iRowU) = Cells(iRow, 11)
arr(11, iRowU) = Cells(iRow, 12)
arr(12, iRowU) = Cells(iRow, 13)
arr(13, iRowU) = Cells(iRow, 14)
arr(14, iRowU) = Cells(iRow, 15)
arr(15, iRowU) = Cells(iRow, 16)
arr(16, iRowU) = Cells(iRow, 17)
arr(17, iRowU) = Cells(iRow, 18)
iRowU = iRowU + 1
End If
Else
If Cells(iRow, 1) = VName And Cells(iRow, 2) = FName Then
ReDim Preserve arr(0 To 2, 0 To iRowU)
arr(0, iRowU) = Cells(iRow, 1)
arr(1, iRowU) = Cells(iRow, 2)
arr(2, iRowU) = Cells(iRow, 3)
arr(3, iRowU) = Cells(iRow, 4)
arr(4, iRowU) = Cells(iRow, 5)
arr(5, iRowU) = Cells(iRow, 6)
arr(6, iRowU) = Cells(iRow, 7)
arr(7, iRowU) = Cells(iRow, 8)
arr(8, iRowU) = Cells(iRow, 9)
arr(9, iRowU) = Cells(iRow, 10)
arr(10, iRowU) = Cells(iRow, 11)
arr(11, iRowU) = Cells(iRow, 12)
arr(12, iRowU) = Cells(iRow, 13)
arr(13, iRowU) = Cells(iRow, 14)
arr(14, iRowU) = Cells(iRow, 15)
arr(15, iRowU) = Cells(iRow, 16)
arr(16, iRowU) = Cells(iRow, 17)
arr(17, iRowU) = Cells(iRow, 18)
iRowU = iRowU + 1
End If
End If
Next iRow
UF_gefilterte_Daten.ListBox1.Column = arr
End If
Unload Me
UF_gefilterte_Daten.Show
Worksheets("filter").Visible = False
Worksheets("PersonenDaten").Visible = False
Application.ScreenUpdating = True
End Sub
#########################################
Private Sub ComboBox22_Change()
intVar = 1
Unload Me
Dim strVorstandsbeauftragten
Dim laufNRVorstandsbeauftragten As Integer
intlaufNRVorstandsbeauftragten = 0
strVorstandsbeauftragten = ComboBox22.Value
If strVorstandsbeauftragten > "" Then
For intZaehler = 3 To intDatenAnzahl + 3
intlaufNRVorstandsbeauftragten = intlaufNRVorstandsbeauftragten + 1
Worksheets("PersonenDaten").Visible = True
Worksheets("PersonenDaten").Select
Worksheets("filter").Visible = True
Worksheets("filter").Select
If Worksheets("PersonenDaten").Cells(intZaehler, 70).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 71).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 72).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 73).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 74).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 75).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 76).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 77).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 78).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 79).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 80).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 81).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 82).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 83).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 84).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 85).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 86).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 87).Value = True Then
Worksheets("PersonenDaten").Visible = True
Worksheets("PersonenDaten").Select
Range(Worksheets("PersonenDaten").Cells(intZaehler, 1), Cells(intZaehler, 18)).Select
Application.CutCopyMode = False
Selection.Copy
Worksheets("filter").Visible = True
Worksheets("filter").Select
Cells(intVar, 1).Select
ActiveSheet.Paste
intVar = intVar + 1
Worksheets("filter").Columns("A:R").Select
Worksheets("filter").Columns("A:R").EntireColumn.AutoFit
End If
Next intZaehler
'Anzahl_ermitteln ("filter")
For intZaehlerFilter = 1 To 20000
If Worksheets("filter").Cells(intZaehlerFilter, 1).Value = "" Then
Exit For
End If
Next intZaehlerFilter
intZaehlerFilter = intZaehlerFilter - 1
End If
UF_gefilterte_Daten.Show
Worksheets("filter").Visible = False
Worksheets("PersonenDaten").Visible = False
Application.ScreenUpdating = True
End Sub
#####################################
Private Sub ComboBox3_Change()
Dim aRow As Long
Dim col As New Collection
Dim iRow, iRowU, x As Long
Dim VName, FName As String
Dim arr() As Variant
Worksheets("PersonenDaten").Visible = True
Worksheets("PersonenDaten").Select
VName = ComboBox2.Value
FName = ComboBox3.Value
If VName = "" Then Exit Sub
'UF_gefilterte_Daten.ListBox1.Clear
iRowU = 0
If FName = "alle" Then
If VName = "alle" Then
UF_gefilterte_Daten.ListBox1.List = Worksheets("PersonenDaten").Range(Cells(2, 1), Cells(aRow, 3)).Value
Else
For iRow = 2 To aRow
If Cells(iRow, 1) = VName Then
ReDim Preserve arr(0 To 2, 0 To iRowU)
arr(0, iRowU) = Cells(iRow, 1)
arr(1, iRowU) = Cells(iRow, 2)
arr(2, iRowU) = Cells(iRow, 3)
arr(3, iRowU) = Cells(iRow, 4)
arr(4, iRowU) = Cells(iRow, 5)
arr(5, iRowU) = Cells(iRow, 6)
arr(6, iRowU) = Cells(iRow, 7)
arr(7, iRowU) = Cells(iRow, 8)
arr(8, iRowU) = Cells(iRow, 9)
arr(9, iRowU) = Cells(iRow, 10)
arr(10, iRowU) = Cells(iRow, 11)
arr(11, iRowU) = Cells(iRow, 12)
arr(12, iRowU) = Cells(iRow, 13)
arr(13, iRowU) = Cells(iRow, 14)
arr(14, iRowU) = Cells(iRow, 15)
arr(15, iRowU) = Cells(iRow, 16)
arr(16, iRowU) = Cells(iRow, 17)
arr(17, iRowU) = Cells(iRow, 18)
iRowU = iRowU + 1
End If
Next iRow
UF_gefilterte_Daten.ListBox1.Column = arr
End If
Else
For iRow = 2 To aRow
If VName = "alle" Then
If Cells(iRow, 2) = FName Then
ReDim Preserve arr(0 To 2, 0 To iRowU)
arr(0, iRowU) = Cells(iRow, 1)
arr(1, iRowU) = Cells(iRow, 2)
arr(2, iRowU) = Cells(iRow, 3)
arr(3, iRowU) = Cells(iRow, 4)
arr(4, iRowU) = Cells(iRow, 5)
arr(5, iRowU) = Cells(iRow, 6)
arr(6, iRowU) = Cells(iRow, 7)
arr(7, iRowU) = Cells(iRow, 8)
arr(8, iRowU) = Cells(iRow, 9)
arr(9, iRowU) = Cells(iRow, 10)
arr(10, iRowU) = Cells(iRow, 11)
arr(11, iRowU) = Cells(iRow, 12)
arr(12, iRowU) = Cells(iRow, 13)
arr(13, iRowU) = Cells(iRow, 14)
arr(14, iRowU) = Cells(iRow, 15)
arr(15, iRowU) = Cells(iRow, 16)
arr(16, iRowU) = Cells(iRow, 17)
arr(17, iRowU) = Cells(iRow, 18)
iRowU = iRowU + 1
End If
Else
If Cells(iRow, 1) = VName And Cells(iRow, 2) = FName Then
ReDim Preserve arr(0 To 2, 0 To iRowU)
arr(0, iRowU) = Cells(iRow, 1)
arr(1, iRowU) = Cells(iRow, 2)
arr(2, iRowU) = Cells(iRow, 3)
arr(3, iRowU) = Cells(iRow, 4)
arr(4, iRowU) = Cells(iRow, 5)
arr(5, iRowU) = Cells(iRow, 6)
arr(6, iRowU) = Cells(iRow, 7)
arr(7, iRowU) = Cells(iRow, 8)
arr(8, iRowU) = Cells(iRow, 9)
arr(9, iRowU) = Cells(iRow, 10)
arr(10, iRowU) = Cells(iRow, 11)
arr(11, iRowU) = Cells(iRow, 12)
arr(12, iRowU) = Cells(iRow, 13)
arr(13, iRowU) = Cells(iRow, 14)
arr(14, iRowU) = Cells(iRow, 15)
arr(15, iRowU) = Cells(iRow, 16)
arr(16, iRowU) = Cells(iRow, 17)
arr(17, iRowU) = Cells(iRow, 18)
iRowU = iRowU + 1
End If
End If
Next iRow
UF_gefilterte_Daten.ListBox1.Column = arr
End If
Unload Me
UF_gefilterte_Daten.Show
Worksheets("filter").Visible = False
Worksheets("PersonenDaten").Visible = False
Application.ScreenUpdating = True
End Sub
#########################################################
Private Sub CommandButton2_Click()
Worksheets("filter").Visible = True
Worksheets("filter").Select
Cells.Select
Selection.Delete Shift:=xlUp
Range("A1").Select
Worksheets("filter").Visible = False
Unload Me
UF_Daten_bearbeiten.Show
End Sub
################################################
Private Sub CommandButton20_Click()
intVar = 1
Unload Me
LfdNr_ermitteln ("PersonenDaten")
intDatenAnzahl = intLfdNrSearchResult
intDatenAnzahl = intDatenAnzahl - 1
For intZaehler = 3 To intDatenAnzahl + 3
Worksheets("PersonenDaten").Visible = True
Worksheets("PersonenDaten").Select
If Worksheets("PersonenDaten").Cells(intZaehler, 2).Value > "" Then
Range(Worksheets("PersonenDaten").Cells(intZaehler, 1), Cells(intZaehler, 18)).Select
Application.CutCopyMode = False
Selection.Copy
Worksheets("filter").Visible = True
Worksheets("filter").Select
Cells(intVar, 1).Select
ActiveSheet.Paste
intVar = intVar + 1
Worksheets("filter").Columns("A:R").Select
Worksheets("filter").Columns("A:R").EntireColumn.AutoFit
End If
Next intZaehler
'Anzahl_ermitteln ("filter")
For intZaehlerFilter = 1 To 20000
If Worksheets("filter").Cells(intZaehlerFilter, 1).Value = "" Then
Exit For
End If
Next intZaehlerFilter
intZaehlerFilter = intZaehlerFilter - 1
UF_gefilterte_Daten.Show
Worksheets("filter").Visible = False
Worksheets("PersonenDaten").Visible = False
Application.ScreenUpdating = True
End Sub
#############################################
Private Sub CommandButton36_Click()
intVar = 1
Unload Me
LfdNr_ermitteln ("PersonenDaten")
intDatenAnzahl = intLfdNrSearchResult
intDatenAnzahl = intDatenAnzahl - 1
For intZaehler = 3 To intDatenAnzahl + 3
Worksheets("PersonenDaten").Visible = True
Worksheets("PersonenDaten").Select
If Worksheets("PersonenDaten").Cells(intZaehler, 53).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 54).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 55).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 56).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 57).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 58).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 59).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 60).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 61).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 62).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 63).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 64).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 65).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 66).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 67).Value = True Then
Range(Worksheets("PersonenDaten").Cells(intZaehler, 1), Cells(intZaehler, 18)).Select
Application.CutCopyMode = False
Selection.Copy
Worksheets("filter").Visible = True
Worksheets("filter").Select
Cells(intVar, 1).Select
ActiveSheet.Paste
intVar = intVar + 1
Worksheets("filter").Columns("A:R").Select
Worksheets("filter").Columns("A:R").EntireColumn.AutoFit
End If
Next intZaehler
'Anzahl_ermitteln ("filter")
For intZaehlerFilter = 1 To 20000
If Worksheets("filter").Cells(intZaehlerFilter, 1).Value = "" Then
Exit For
End If
Next intZaehlerFilter
intZaehlerFilter = intZaehlerFilter - 1
UF_gefilterte_Daten.Show
Worksheets("filter").Visible = False
Worksheets("PersonenDaten").Visible = False
Application.ScreenUpdating = True
End Sub
#########################################
Private Sub CommandButton37_Click()
intVar = 1
Unload Me
LfdNr_ermitteln ("PersonenDaten")
intDatenAnzahl = intLfdNrSearchResult
intDatenAnzahl = intDatenAnzahl - 1
For intZaehler = 3 To intDatenAnzahl + 3
Worksheets("PersonenDaten").Visible = True
Worksheets("PersonenDaten").Select
If Worksheets("PersonenDaten").Cells(intZaehler, 95).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 96).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 97).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 98).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 99).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 100).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 101).Value = True Then
Range(Worksheets("PersonenDaten").Cells(intZaehler, 1), Cells(intZaehler, 18)).Select
Application.CutCopyMode = False
Selection.Copy
Worksheets("filter").Visible = True
Worksheets("filter").Select
Cells(intVar, 1).Select
ActiveSheet.Paste
intVar = intVar + 1
Worksheets("filter").Columns("A:R").Select
Worksheets("filter").Columns("A:R").EntireColumn.AutoFit
End If
Next intZaehler
'Anzahl_ermitteln ("filter")
For intZaehlerFilter = 1 To 20000
If Worksheets("filter").Cells(intZaehlerFilter, 1).Value = "" Then
Exit For
End If
Next intZaehlerFilter
intZaehlerFilter = intZaehlerFilter - 1
UF_gefilterte_Daten.Show
Worksheets("filter").Visible = False
Worksheets("PersonenDaten").Visible = False
Application.ScreenUpdating = True
End Sub
#########################################
Private Sub CommandButton38_Click()
intVar = 1
Unload Me
LfdNr_ermitteln ("PersonenDaten")
intDatenAnzahl = intLfdNrSearchResult
intDatenAnzahl = intDatenAnzahl - 1
For intZaehler = 3 To intDatenAnzahl + 3
Worksheets("PersonenDaten").Visible = True
Worksheets("PersonenDaten").Select
If Worksheets("PersonenDaten").Cells(intZaehler, 57).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 58).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 88).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 89).Value = True Then
Range(Worksheets("PersonenDaten").Cells(intZaehler, 1), Cells(intZaehler, 18)).Select
Application.CutCopyMode = False
Selection.Copy
Worksheets("filter").Visible = True
Worksheets("filter").Select
Cells(intVar, 1).Select
ActiveSheet.Paste
intVar = intVar + 1
Worksheets("filter").Columns("A:R").Select
Worksheets("filter").Columns("A:R").EntireColumn.AutoFit
End If
Next intZaehler
'Anzahl_ermitteln ("filter")
For intZaehlerFilter = 1 To 20000
If Worksheets("filter").Cells(intZaehlerFilter, 1).Value = "" Then
Exit For
End If
Next intZaehlerFilter
intZaehlerFilter = intZaehlerFilter - 1
UF_gefilterte_Daten.Show
Worksheets("filter").Visible = False
Worksheets("PersonenDaten").Visible = False
Application.ScreenUpdating = True
End Sub
######################################
Private Sub CommandButton40_Click()
intVar = 1
Unload Me
LfdNr_ermitteln ("PersonenDaten")
intDatenAnzahl = intLfdNrSearchResult
intDatenAnzahl = intDatenAnzahl - 1
For intZaehler = 3 To intDatenAnzahl + 3
Worksheets("PersonenDaten").Visible = True
Worksheets("PersonenDaten").Select
If Worksheets("PersonenDaten").Cells(intZaehler, 90).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 91).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 92).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 93).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 94).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 103).Value = True Then
Range(Worksheets("PersonenDaten").Cells(intZaehler, 1), Cells(intZaehler, 18)).Select
Application.CutCopyMode = False
Selection.Copy
Worksheets("filter").Visible = True
Worksheets("filter").Select
Cells(intVar, 1).Select
ActiveSheet.Paste
intVar = intVar + 1
Worksheets("filter").Columns("A:R").Select
Worksheets("filter").Columns("A:R").EntireColumn.AutoFit
End If
Next intZaehler
'Anzahl_ermitteln ("filter")
For intZaehlerFilter = 1 To 20000
If Worksheets("filter").Cells(intZaehlerFilter, 1).Value = "" Then
Exit For
End If
Next intZaehlerFilter
intZaehlerFilter = intZaehlerFilter - 1
UF_gefilterte_Daten.Show
Worksheets("filter").Visible = False
Worksheets("PersonenDaten").Visible = False
Application.ScreenUpdating = True
End Sub
############################################
Private Sub CommandButton41_Click()
intVar = 1
Unload Me
LfdNr_ermitteln ("PersonenDaten")
intDatenAnzahl = intLfdNrSearchResult
intDatenAnzahl = intDatenAnzahl - 1
For intZaehler = 3 To intDatenAnzahl + 3
Worksheets("PersonenDaten").Visible = True
Worksheets("PersonenDaten").Select
If Worksheets("PersonenDaten").Cells(intZaehler, 70).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 71).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 72).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 73).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 74).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 75).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 76).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 77).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 78).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 79).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 80).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 81).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 82).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 83).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 84).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 85).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 86).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 87).Value = True Then
Range(Worksheets("PersonenDaten").Cells(intZaehler, 1), Cells(intZaehler, 18)).Select
Application.CutCopyMode = False
Selection.Copy
Worksheets("filter").Visible = True
Worksheets("filter").Select
Cells(intVar, 1).Select
ActiveSheet.Paste
intVar = intVar + 1
Worksheets("filter").Columns("A:R").Select
Worksheets("filter").Columns("A:R").EntireColumn.AutoFit
End If
Next intZaehler
'Anzahl_ermitteln ("filter")
For intZaehlerFilter = 1 To 20000
If Worksheets("filter").Cells(intZaehlerFilter, 1).Value = "" Then
Exit For
End If
Next intZaehlerFilter
intZaehlerFilter = intZaehlerFilter - 1
UF_gefilterte_Daten.Show
Worksheets("filter").Visible = False
Worksheets("PersonenDaten").Visible = False
Application.ScreenUpdating = True
End Sub
##########################################
Private Sub CommandButton42_Click()
Dim strVereine, strVorstand
Dim laufendeNR As Integer
intlaufendeNR = 0
strVereine = ComboBox2.Value
strVorstand = ComboBox3.Value
If strVereine = "" And strVorstand = "" Then
Anwendung = MsgBox("Achtung Auswahl fehlt." & Chr(13) & _
"Es ist kein Verein und kein Vereinsposten ausgewählt worden." & Chr(13) & _
"Bitte auswählen und Vorgang wiederholen." & Chr(13), vbOKOnly, _
"!!! Achtung: Auswahl fehlt !!!")
Unload Me
UF_Daten_filtern.Show
End If
If strVereine > "" And strVorstand = "" Then
For intZaehler = 3 To intDatenAnzahl + 3
intlaufendeNR = intlaufendeNR + 1
If strVereine = Worksheets("PersonenDaten").Cells(intZaehler, 18).Value Then
intlaufendeNR = intlaufendeNR + 1
Worksheets("filter").Cells(intZaehler, 1).Value = laufendeNR
Worksheets("filter").Cells(intZaehler, 2).Value = Worksheets("PersonenDaten").Cells(intZaehler, 2).Value
Worksheets("filter").Cells(intZaehler, 3).Value = Worksheets("PersonenDaten").Cells(intZaehler, 3).Value
Worksheets("filter").Cells(intZaehler, 4).Value = Worksheets("PersonenDaten").Cells(intZaehler, 4).Value
Worksheets("filter").Cells(intZaehler, 5).Value = Worksheets("PersonenDaten").Cells(intZaehler, 5).Value
Worksheets("filter").Cells(intZaehler, 6).Value = Worksheets("PersonenDaten").Cells(intZaehler, 6).Value
Worksheets("filter").Cells(intZaehler, 7).Value = Worksheets("PersonenDaten").Cells(intZaehler, 7).Value
Worksheets("filter").Cells(intZaehler, 8).Value = Worksheets("PersonenDaten").Cells(intZaehler, 8).Value
Worksheets("filter").Cells(intZaehler, 9).Value = Worksheets("PersonenDaten").Cells(intZaehler, 9).Value
Worksheets("filter").Cells(intZaehler, 10).Value = Worksheets("PersonenDaten").Cells(intZaehler, 10).Value
Worksheets("filter").Cells(intZaehler, 11).Value = Worksheets("PersonenDaten").Cells(intZaehler, 11).Value
Worksheets("filter").Cells(intZaehler, 12).Value = Worksheets("PersonenDaten").Cells(intZaehler, 12).Value
Worksheets("filter").Cells(intZaehler, 13).Value = Worksheets("PersonenDaten").Cells(intZaehler, 13).Value
Worksheets("filter").Cells(intZaehler, 14).Value = Worksheets("PersonenDaten").Cells(intZaehler, 14).Value
Worksheets("filter").Cells(intZaehler, 15).Value = Worksheets("PersonenDaten").Cells(intZaehler, 15).Value
Worksheets("filter").Cells(intZaehler, 16).Value = Worksheets("PersonenDaten").Cells(intZaehler, 16).Value
Worksheets("filter").Cells(intZaehler, 17).Value = Worksheets("PersonenDaten").Cells(intZaehler, 17).Value
Worksheets("filter").Cells(intZaehler, 18).Value = Worksheets("PersonenDaten").Cells(intZaehler, 18).Value
End If
Next intZaehler
End If
If strVereine = "" And strVorstand > "" Then
Dim position As Integer
position = 0
For intZaehler = 19 To 53
If strVorstand = Worksheets("PersonenDaten").Cells(2, intZaehler).Value Then
position = intZaehler
End If
Next
If position = 0 Then
If strVorstand = Worksheets("PersonenDaten").Cells(2, 103).Value Then
position = 103
Else
position = 104
End If
End If
For intZaehler = 3 To intDatenAnzahl + 3
If Worksheets("PersonenDaten").Cells(intZaehler, position).Value = True Then
intlaufendeNR = intlaufendeNR + 1
Worksheets("filter").Cells(intZaehler, 1).Value = laufendeNR
Worksheets("filter").Cells(intZaehler, 2).Value = Worksheets("PersonenDaten").Cells(intZaehler, 2).Value
Worksheets("filter").Cells(intZaehler, 3).Value = Worksheets("PersonenDaten").Cells(intZaehler, 3).Value
Worksheets("filter").Cells(intZaehler, 4).Value = Worksheets("PersonenDaten").Cells(intZaehler, 4).Value
Worksheets("filter").Cells(intZaehler, 5).Value = Worksheets("PersonenDaten").Cells(intZaehler, 5).Value
Worksheets("filter").Cells(intZaehler, 6).Value = Worksheets("PersonenDaten").Cells(intZaehler, 6).Value
Worksheets("filter").Cells(intZaehler, 7).Value = Worksheets("PersonenDaten").Cells(intZaehler, 7).Value
Worksheets("filter").Cells(intZaehler, 8).Value = Worksheets("PersonenDaten").Cells(intZaehler, 8).Value
Worksheets("filter").Cells(intZaehler, 9).Value = Worksheets("PersonenDaten").Cells(intZaehler, 9).Value
Worksheets("filter").Cells(intZaehler, 10).Value = Worksheets("PersonenDaten").Cells(intZaehler, 10).Value
Worksheets("filter").Cells(intZaehler, 11).Value = Worksheets("PersonenDaten").Cells(intZaehler, 11).Value
Worksheets("filter").Cells(intZaehler, 12).Value = Worksheets("PersonenDaten").Cells(intZaehler, 12).Value
Worksheets("filter").Cells(intZaehler, 13).Value = Worksheets("PersonenDaten").Cells(intZaehler, 13).Value
Worksheets("filter").Cells(intZaehler, 14).Value = Worksheets("PersonenDaten").Cells(intZaehler, 14).Value
Worksheets("filter").Cells(intZaehler, 15).Value = Worksheets("PersonenDaten").Cells(intZaehler, 15).Value
Worksheets("filter").Cells(intZaehler, 16).Value = Worksheets("PersonenDaten").Cells(intZaehler, 16).Value
Worksheets("filter").Cells(intZaehler, 17).Value = Worksheets("PersonenDaten").Cells(intZaehler, 17).Value
End If
Next intZaehler
End If
If strVereine > "" And strVorstand > "" Then
For intZaehler = 3 To intDatenAnzahl + 3
If Worksheets("PersonenDaten").Cells(intZaehler, position).Value = True Then
intlaufendeNR = intlaufendeNR + 1
Worksheets("filter").Cells(intZaehler, 1).Value = laufendeNR
Worksheets("filter").Cells(intZaehler, 2).Value = Worksheets("PersonenDaten").Cells(intZaehler, 2).Value
Worksheets("filter").Cells(intZaehler, 3).Value = Worksheets("PersonenDaten").Cells(intZaehler, 3).Value
Worksheets("filter").Cells(intZaehler, 4).Value = Worksheets("PersonenDaten").Cells(intZaehler, 4).Value
Worksheets("filter").Cells(intZaehler, 5).Value = Worksheets("PersonenDaten").Cells(intZaehler, 5).Value
Worksheets("filter").Cells(intZaehler, 6).Value = Worksheets("PersonenDaten").Cells(intZaehler, 6).Value
Worksheets("filter").Cells(intZaehler, 7).Value = Worksheets("PersonenDaten").Cells(intZaehler, 7).Value
Worksheets("filter").Cells(intZaehler, 8).Value = Worksheets("PersonenDaten").Cells(intZaehler, 8).Value
Worksheets("filter").Cells(intZaehler, 9).Value = Worksheets("PersonenDaten").Cells(intZaehler, 9).Value
Worksheets("filter").Cells(intZaehler, 10).Value = Worksheets("PersonenDaten").Cells(intZaehler, 10).Value
Worksheets("filter").Cells(intZaehler, 11).Value = Worksheets("PersonenDaten").Cells(intZaehler, 11).Value
Worksheets("filter").Cells(intZaehler, 12).Value = Worksheets("PersonenDaten").Cells(intZaehler, 12).Value
Worksheets("filter").Cells(intZaehler, 13).Value = Worksheets("PersonenDaten").Cells(intZaehler, 13).Value
Worksheets("filter").Cells(intZaehler, 14).Value = Worksheets("PersonenDaten").Cells(intZaehler, 14).Value
Worksheets("filter").Cells(intZaehler, 15).Value = Worksheets("PersonenDaten").Cells(intZaehler, 15).Value
Worksheets("filter").Cells(intZaehler, 16).Value = Worksheets("PersonenDaten").Cells(intZaehler, 16).Value
Worksheets("filter").Cells(intZaehler, 17).Value = Worksheets("PersonenDaten").Cells(intZaehler, 17).Value
End If
Next intZaehler
End If
Unload Me
UF_gefilterte_Daten.Show
End Sub
#######################################################
Private Sub CommandButton43_Click()
intVar = 1
Unload Me
LfdNr_ermitteln ("PersonenDaten")
intDatenAnzahl = intLfdNrSearchResult
intDatenAnzahl = intDatenAnzahl - 1
For intZaehler = 3 To intDatenAnzahl + 3
Worksheets("PersonenDaten").Visible = True
Worksheets("PersonenDaten").Select
If Worksheets("PersonenDaten").Cells(intZaehler, 69).Value = True Then
Range(Worksheets("PersonenDaten").Cells(intZaehler, 1), Cells(intZaehler, 18)).Select
Application.CutCopyMode = False
Selection.Copy
Worksheets("filter").Visible = True
Worksheets("filter").Select
Cells(intVar, 1).Select
ActiveSheet.Paste
intVar = intVar + 1
Worksheets("filter").Columns("A:R").Select
Worksheets("filter").Columns("A:R").EntireColumn.AutoFit
End If
Next intZaehler
'Anzahl_ermitteln ("filter")
For intZaehlerFilter = 1 To 20000
If Worksheets("filter").Cells(intZaehlerFilter, 1).Value = "" Then
Exit For
End If
Next intZaehlerFilter
intZaehlerFilter = intZaehlerFilter - 1
UF_gefilterte_Daten.Show
Worksheets("filter").Visible = False
Worksheets("PersonenDaten").Visible = False
Application.ScreenUpdating = True
End Sub
#########################################
Private Sub CommandButton44_Click()
intVar = 1
Unload Me
LfdNr_ermitteln ("PersonenDaten")
intDatenAnzahl = intLfdNrSearchResult
intDatenAnzahl = intDatenAnzahl - 1
For intZaehler = 3 To intDatenAnzahl + 3
Worksheets("PersonenDaten").Visible = True
Worksheets("PersonenDaten").Select
If Worksheets("PersonenDaten").Cells(intZaehler, 68).Value = True Then
Range(Worksheets("PersonenDaten").Cells(intZaehler, 1), Cells(intZaehler, 18)).Select
Application.CutCopyMode = False
Selection.Copy
Worksheets("filter").Visible = True
Worksheets("filter").Select
Cells(intVar, 1).Select
ActiveSheet.Paste
intVar = intVar + 1
Worksheets("filter").Columns("A:R").Select
Worksheets("filter").Columns("A:R").EntireColumn.AutoFit
End If
Next intZaehler
'Anzahl_ermitteln ("filter")
For intZaehlerFilter = 1 To 20000
If Worksheets("filter").Cells(intZaehlerFilter, 1).Value = "" Then
Exit For
End If
Next intZaehlerFilter
intZaehlerFilter = intZaehlerFilter - 1
UF_gefilterte_Daten.Show
Worksheets("filter").Visible = False
Worksheets("PersonenDaten").Visible = False
Application.ScreenUpdating = True
End Sub
##########################################
Private Sub CommandButton45_Click()
intVar = 1
Unload Me
LfdNr_ermitteln ("PersonenDaten")
intDatenAnzahl = intLfdNrSearchResult
intDatenAnzahl = intDatenAnzahl - 1
For intZaehler = 3 To intDatenAnzahl + 3
Worksheets("PersonenDaten").Visible = True
Worksheets("PersonenDaten").Select
If Worksheets("PersonenDaten").Cells(intZaehler, 70).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 71).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 72).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 73).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 74).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 75).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 76).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 77).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 78).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 79).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 80).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 81).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 82).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 83).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 84).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 85).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 86).Value = True _
Or Worksheets("PersonenDaten").Cells(intZaehler, 87).Value = True Then
Range(Worksheets("PersonenDaten").Cells(intZaehler, 1), Cells(intZaehler, 18)).Select
Application.CutCopyMode = False
Selection.Copy
Worksheets("filter").Visible = True
Worksheets("filter").Select
Cells(intVar, 1).Select
ActiveSheet.Paste
intVar = intVar + 1
Worksheets("filter").Columns("A:R").Select
Worksheets("filter").Columns("A:R").EntireColumn.AutoFit
End If
Next intZaehler
'Anzahl_ermitteln ("filter")
For intZaehlerFilter = 1 To 20000
If Worksheets("filter").Cells(intZaehlerFilter, 1).Value = "" Then
Exit For
End If
Next intZaehlerFilter
intZaehlerFilter = intZaehlerFilter - 1
UF_gefilterte_Daten.Show
Worksheets("filter").Visible = False
Worksheets("PersonenDaten").Visible = False
Application.ScreenUpdating = True
End Sub
#########################################
Private Sub UserForm_Initialize()
Dim aRow As Long
Dim col As New Collection
Dim iRow, iRowU, x As Long
Dim VName, FName As String
Dim arr() As Variant
aRow = IIf(IsEmpty(Range("A65536")), Range("A65536").End(xlUp).Row, 65536)
On Error Resume Next
'ComboBox2.AddItem "alle"
For iRow = 2 To aRow
col.Add Cells(iRow, 1), Cells(iRow, 1)
If Err = 0 Then
ComboBox2.AddItem Cells(iRow, 1)
Else
Err.Clear
End If
Next iRow
'ComboBox3.AddItem "alle"
For iRow = 2 To aRow
col.Add Cells(iRow, 2), Cells(iRow, 2)
If Err = 0 Then
ComboBox3.AddItem Cells(iRow, 2)
Else
Err.Clear
End If
Next iRow
On Error GoTo 0
Dim strVergleich As String
Worksheets("filter").Visible = True
Worksheets("filter").Select
Cells.Select
Selection.Delete Shift:=xlUp
Range("A1").Select
Worksheets("filter").Visible = False
Worksheets("PersonenDaten").Visible = True
Worksheets("PersonenDaten").Select
LfdNr_ermitteln ("PersonenDaten")
intDatenAnzahl = intLfdNrSearchResult
'**** Hier werden die Vereine in eine combobox übernommen *'
strVergleich = "leer"
Worksheets("PersonenDaten").Range(Worksheets("PersonenDaten").Cells(3, 1), _
Worksheets("PersonenDaten").Cells((intDatenAnzahl + 2), 256)).Select
Selection.Sort Key1:=Range("R3"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
For intZaehler = 3 To intDatenAnzahl + 2
If strVergleich <> Worksheets("PersonenDaten").Cells(intZaehler, 18).Value Then
ComboBox2.AddItem Worksheets("PersonenDaten").Cells(intZaehler, 18).Value
strVergleich = Worksheets("PersonenDaten").Cells(intZaehler, 18).Value
End If
Next intZaehler
'*** Hier werden die Nachnamen eingefügt ***'
strVergleich = "leer"
Worksheets("PersonenDaten").Range(Worksheets("PersonenDaten").Cells(3, 1), _
Worksheets("PersonenDaten").Cells((intDatenAnzahl + 2), 256)).Select
Selection.Sort Key1:=Range("D3"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
For intZaehler = 3 To intDatenAnzahl + 2
If strVergleich <> Worksheets("PersonenDaten").Cells(intZaehler, 4).Value Then
ComboBox13.AddItem Worksheets("PersonenDaten").Cells(intZaehler, 4).Value
strVergleich = Worksheets("PersonenDaten").Cells(intZaehler, 4).Value
End If
Next intZaehler
'*** Hier werden die Vornamen eingefügt ***'
strVergleich = "leer"
Worksheets("PersonenDaten").Range(Worksheets("PersonenDaten").Cells(3, 1), _
Worksheets("PersonenDaten").Cells((intDatenAnzahl + 2), 256)).Select
Selection.Sort Key1:=Range("C3"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
For intZaehler = 3 To intDatenAnzahl + 2
If strVergleich <> Worksheets("PersonenDaten").Cells(intZaehler, 3).Value Then
ComboBox12.AddItem Worksheets("PersonenDaten").Cells(intZaehler, 3).Value
strVergleich = Worksheets("PersonenDaten").Cells(intZaehler, 3).Value
End If
Next intZaehler
'*** ab hier wir wieder nach lfd. Nr. zurück sortiert. ***
Worksheets("PersonenDaten").Range(Worksheets("PersonenDaten").Cells(3, 1), _
Worksheets("PersonenDaten").Cells((intDatenAnzahl + 2), 256)).Select
Selection.Sort Key1:=Range("A3"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Worksheets("PersonenDaten").Cells(1, 1).Select
'*** Hier werden die Posten in ComboBox3 ( Posten im Verein ) eingetragen ***' ( Sortieren auf waagerechter Ebene )
For intZaehler = 19 To 105
If intZaehler = 53 Then
intZaehler = 104
End If
If intZaehler = 104 Then
intZaehler = 105
End If
If Worksheets("PersonenDaten").Cells(2, intZaehler).Value <> "" Then
ComboBox3.AddItem Worksheets("PersonenDaten").Cells(2, intZaehler).Value
End If
Next intZaehler
'Hier werden die HKV Vorstandsbeauftragte in die Combobox geladen.
For intZaehler = 70 To 87
If Worksheets("PersonenDaten").Cells(2, intZaehler).Value <> "" Then
ComboBox22.AddItem Worksheets("PersonenDaten").Cells(2, intZaehler).Value
End If
Next intZaehler
'*** ab hier wir wieder nach lfd. Nr. zurück sortiert. ***
Worksheets("PersonenDaten").Range(Worksheets("PersonenDaten").Cells(3, 1), _
Worksheets("PersonenDaten").Cells((intDatenAnzahl + 2), 256)).Select
Selection.Sort Key1:=Range("A3"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Worksheets("PersonenDaten").Cells(1, 1).Select
Worksheets("Vereinsadressen").Visible = False
Worksheets("PersonenDaten").Visible = False
Worksheets("filter").Visible = False
Application.ScreenUpdating = True
End Sub
####################################################