Offset-Bereich nachträglich formatieren
11.11.2015 09:44:53
Malte
ich habe im Internet ein Makro gefunden, dass ein Recordset in einen bestimmten Bereich einträgt. Das ganze läuft über die Offset-Eigenschaft
Sub Beispiel
With DasRecordSet
Do While Not .EOF
For k = 0 To .Fields.Count - 1
AusgabestartGO.Offset(z, k) = .Fields(k)
Next k
z = z + 1
.MoveNext
Loop
End With
End Sub
Nun sieht die Tabelle in etwa so aus:Spalte1 Spalte2 Spalte3
Zeile1
Zeile2
etc.
Ich würde nun gerne den Spalten2 bis Ende innerhalb der gefüllten Zeilen einen Rahmen geben und das Zellenformat auf "hh:mm" setzen.
Wenn ich jedoch AusgabestartGO.Offset(z,k).NumberFormat anspreche funktioniert das nicht.
Kann mir jemand helfen?
Vielen Dank!