Ich stehe mit meinem Code an:
Ziel: Ich möchte ab Spalte (definiert über Inputpox) bis ans Ende meiner befüllten Spalten alle Spalten Ausblenden
Ausgangslage:
Meine Tabelle hat verbundene Spalten was dazu führt, dass mir zuviele Spalten selektiert werden. Mit Makrorekorder kann ich alles sauber nachvollziehen.
Ergebnis: Columns("AX:CM"). ---Select stimmt. Ich weiss nur nicht, wie diesen Syntax in meinen Code umsetzen kann.
Range(wsZ.Cells(10, i), wsZ.Cells(10, lsZ)).EntireColumn.Select
Für eure Hilfe danke ich euch jetzt schon.
Gruss Richi
Sub spalte_aus()
Dim wb As Workbook 'Datei
Dim wsZ As Worksheet 'Tabelle
Dim i As Integer
Dim Eingabe As Date
Dim datum, dmin As Date
Set wb = ThisWorkbook 'Geöffnete Datei
Set wsZ = wb.Worksheets("Single Line") 'Tabelle
lsZ = wsZ.Cells(6, wsZ.Columns.Count).End(xlToLeft).Column - 1 'letzte Spalte Ziel ermitteln
datum = CDate(wsZ.Cells(10, lsZ))
dmin = CDate(wsZ.Cells(10, 29))
Eingabe = inputbox("Datum eintragen zwischen " & dmin & " und " & datum)
If Not IsDate(Eingabe) Then
MsgBox "Kein gültiges Datum!"
End If
For i = 29 To lsZ
If Eingabe