AW: Dropdown Auswahl --> ausgabe immer gleich
25.05.2018 19:47:15
Gerd
Hallo Nicole!
Es geht gemütlich!
Private Sub CB_Zeitbasen_Change()
Dim strAuswertung As String
Dim Zeile As Long
Tabelle1.Range(Tabelle1.Cells(2, 11), Tabelle1.Range("K" & Rows.Count).End(xlUp)).ClearContents
Tabelle1.Cells(4, 12).Value = CB_Zeitbasen.Value
strAuswertung = Split(CB_Zeitbasen.Value, ":")(0)
Zeile = 5
For i = 1 To Tabelle9.Range("D" & Rows.Count).End(xlUp).Row
If Tabelle9.Cells(i, 4) = strAuswertung Then
Tabelle1.Cells(Zeile, 11).Value = Tabelle9.Cells(i, 4).Value
Tabelle1.Cells(Zeile, 12).Value = Tabelle9.Cells(i, 5).Value
Tabelle1.Cells(Zeile, 13).Value = Tabelle9.Cells(i, 6).Value
Zeile = Zeile + 1
End If
Next
End Sub
Gruß Gerd