VBA Wert suchen, kopieren und in Zelle schreiben
04.06.2019 14:05:08
Romy
ich benötige Hilfe bei meinem VBA Code. Bisher sieht der so aus:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target = Range("E4") Then
Columns("A:C").Select
Selection.EntireColumn.Hidden = False
Range("E6, E8").ClearContents
Range("Tabelle1").Autofilter Field:=1, Criteria1:=Range("E4").Value
Columns("A:C").Select
Selection.EntireColumn.Hidden = True
End If
End Sub
Als weiteren Schritt möchte ich, dass VBA den Wert in Spalte B (Startdatum) und Spalte C (Enddatum), basierend auf der Auswahl E4, in die Zellen E6 und E8 schreibt.
Bsp.:
Ich wähle in der Zelle E4 Schlüssel aus
-> Spalten A:C werden eingeblendet
-> Zellinhalte E6 und E8 werden gelöscht
-> Spalte A, Tabelle 1 wird gefiltert nach dem Wert "Schlüssel"
-> Beim ersten gefundenen Wert wird der Wert daneben aus Spalte B, Tabelle1 genommen und in Zelle E6 geschrieben und der Wert aus Spalte C, Tabelle1 wird in Zelle E8 geschrieben
-> Spalten A:C werden ausgeblendet