Problem mit ActiveCell.Offset

Hallo zusammen,
ich habe ein Problem mit ActiveCell.Offset. Da es unter einer anderen Überschrift fast keine Resnonanz gab, stelle ich die Frage nun geändert neu (so wird es zumindest empfohlen, bevor einer meckert :-) ).
Auf der Arbeit lese ich Hostanwendungen aus, und trage die Daten in bestimmte Spalten, zum Schluss erfasse ich dann noch das Datum und Zeit, wann die Daten ausgelesen wurden (ein kleiner Auszug):
ActiveCell.Offset(0, 5).Value = Format(Date)
ActiveCell.Offset(0, 6).Value = Format(Time)
Wenn ich aber nun Spalten einfüge oder lösche, so muss immer die VBA-Zeilen ebenfalls ändern. Es wurde mir der Tipp gegeben, den Spalten Namen zu geben. Das habe ich gemacht, aber ich weiß trotzdem nicht, wie der Code von ActiveCell.Offset(0, ?).Value aussehen muss.
In meiner Tabelle habe ich jetzt der Spalte F den Namen Zeit und der Spalte G den Namen Time gegeben.
Wäre toll, wenn mir jemand von Euch in meiner Tabelle die Änderung an ActiveCell.Offset(0, ?).Value vornehmen könnte. Ich verstehe nämlich nur Bahnhof.
https://www.herber.de/bbs/user/57603.xls
Vielen Dank!
Viele Grüße
Markus

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub Markus() Dim Razelle As Range Dim Loletzte As Long Loletzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows. _ Count) Set Razelle = Range("A2:A" & Loletzte).Find("", Range("A" & Loletzte), , xlWhole, , xlNext) If Razelle Is Nothing Then Set Razelle = Range("A" & Loletzte) Range(Cells(2, 6), Cells(Razelle.Row, 6)) = Date Range(Cells(2, 7), Cells(Razelle.Row, 7)) = Time Set Razelle = Nothing End Sub

Option Explicit Sub Markus() Dim Razelle As Range Dim Loletzte As Long Application.ScreenUpdating = False Loletzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows. _ Count) Set Razelle = Range("A2:A" & Loletzte).Find("", Range("A" & Loletzte), , xlWhole, , xlNext) If Razelle Is Nothing Then Set Razelle = Range("A" & Loletzte) Range(Cells(2, 6), Cells(Razelle.Row, 6)) = Date Range(Cells(2, 7), Cells(Razelle.Row, 7)) = Time Set Razelle = Nothing Application.ScreenUpdating = True End Sub

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

39 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Problem mit ActiveCell.Offset

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

39 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread