Code anpassen
Fritz_W
Hallo VBA-Experten,
nachfolgender Code kopiert mir - per Mausklick - die Zellwerte des Zellbereichs H3:K6 (unformatiert) in den Zellbereich H10:H25. Ist der Zielbereich vollständig gefüllt, erscheint die Meldung 'Keine weiteren leeren Zellen in Bereich ...'.
Ich würde gerne, den Code so verändern, dass, nachdem der Zellbereich H10:H25 vollständig gefüllt ist, auch in den Zellbereich I10:I25 kopiert wird und erst danach die Meldung 'Keine weiteren leeren Zellen im Zielbereich' ausgegeben wird.
Würde mich freuen, wenn jemand von euch mir den Code entsprechend anpassen würde und bedanke mich bereits jetzt für eure Hilfen.
mfg
Fritz
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [H3:K6]) Is Nothing Then
With Range("H10:H25")
If Application.CountBlank(Range(.Address)) > 0 Then
.SpecialCells(xlCellTypeBlanks)(1, 1).Value = Target.Value
Else
MsgBox "Keine weiteren leeren Zellen in Bereich " & .Address & " gefunden !"
End If
End With
End If
End Sub