VBA Probleme (VBA)

VBA-Anfänger1, Mittwoch, 25.03.2020, 22:05 (vor 5 Tagen)

Liebe Leser-/innen,
Ich würde mich freuen wenn mir jemand helfen könnte bei dem folgendem Problem:

Worksheets("Tabelle2").Range("E2").End(xlDown).Select

Ich möchte anstelle von dem .End ein unendlich, dass das für unendlich lange nach unten geht


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Name As String
Worksheets("Tabelle1").Select
Name = Range("F2")
Worksheets("Tabelle2").Select
Worksheets("Tabelle2").Range("E2").Select
If Worksheets("Tabelle2").Range("E2").Offset(1, 0) <> "" Then
Worksheets("Tabelle2").Range("E2").End(xlDown).Select
End If
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = Name
End Sub

Das wäre dann der ganze Code dazu das oben nur ein Auszu davon

MfG der Anfänger


gesamter Thread:

 RSS-Feed dieser Diskussion

powered by my little forum