ich komme bei einem Makro nicht weiter. Ich will das er mir aus der Spalte C die Namen kopiert wenn D(dort stehen die Krankheitsgründe) leer ist und in Tabelle 3 einfügt. Zum Hintergrund: Habe vier Buttons die mir bestimmtes Personal aus einem bestimmtem Werk aus den vier Bereichen mit dem Krankheitsstatus generiert. Die Leute die nicht krank sind will ich wieder per Button in ne extra Liste bekommen. Hab versucht jetzt alles in einem Button zu packen aber es funkt nicht. Das habe ich bereits:
Sub KopieErstellenBereich2()
Dim lngZeile As Long
Dim lngErste As Long
lngErste = 5
With Worksheets("Tabelle3")
For lngZeile = 5 To 65
If Worksheets("Tabelle1").Cells(lngZeile, 4) = "" Then
Worksheets("Tabelle1").Rows(lngZeile).Copy .Cells(lngErste, 1)
lngErste = lngErste + 1
Application.Goto Sheets("Tabelle3").Range("C6")
End If
Next lngZeile
End With
End Sub
Sub KopieErstellenBereich3()
Dim lngZeile As Long
Dim lngErste As Long
lngErste = 6
With Worksheets("Tabelle3")
For lngZeile = 5 To 75
If Worksheets("Tabelle1").Cells(lngZeile, 10) = "" Then
Worksheets("Tabelle1").Rows(lngZeile).Copy .Cells(lngErste, 1)
lngErste = lngErste + 1
Application.Goto Sheets("Tabelle3").Range("E6")
End If
Next lngZeile
End With
End Sub
Sub KopieErstellenBereich4()
Dim lngZeile As Long
Dim lngErste As Long
lngErste = 7
With Worksheets("Tabelle3")
For lngZeile = 5 To 65
If Worksheets("Tabelle1").Cells(lngZeile, 13) = "" Then
Worksheets("Tabelle1").Rows(lngZeile).Copy .Cells(lngErste, 1)
lngErste = lngErste + 1
Application.Goto Sheets("Tabelle3").Range("G6")
End If
Next lngZeile
End With
End Sub
Sub KopieErstellenBereich5()
Dim lngZeile As Long
Dim lngErste As Long
lngErste = 8
With Worksheets("Tabelle3")
For lngZeile = 5 To 100
If Worksheets("Tabelle1").Cells(lngZeile, 18) = "" Then
Worksheets("Tabelle1").Rows(lngZeile).Copy .Cells(lngErste, 1)
lngErste = lngErste + 1
Application.Goto Sheets("Tabelle3").Range("I6")
End If
Next lngZeile
End With
End Sub
Sub KopieErstellenGesamt()
Call KopieErstellenBereich2
Call KopieErstellenBereich3
Call KopieErstellenBereich4
Call KopieErstellenBereich5
End Sub