Spalten in VBA anpassen

Hallo zusammen,
eine vermutlich blöde Frage.
Ich lese aus einem Anwendungsfenster Daten in bestimmte Zellen aus. Wenn alle Daten (je nach Anwendung bis zu 30 Spalteneinträge) ausgelesen sind, erfasse ich die Zeit mit ActiveCell.Offset(0, 10).Value = Format(Date & " " & Time)
Wenn ich im nachhinein aber eine Änderung meiner Tabelle vornehme (z.B. ich füge eine weitere Spalte ein), so muss ich manuell in VBA den Code z.B. in ActiveCell.Offset(0, 11).Value = Format(Date & " " & Time)
ändern. Das kann in einem längeren Makro schon ziemlich anstrengend sein, da ich ja alle anderen VBA-Zeilen auch ändern muss (hier ändern sich ja dann auch die Spalten).
Gibt es da eine elegantere Lösung? Bin für jedes Vorschlag dankbar!
Danke im Voraus!
Viele Grüße
Markus

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub test() Range("a2").Select Do Until ActiveCell.Value = "" i = i + 1 If i = 20 Then ActiveWorkbook.Save i = 1 Else End If f = ActiveSheet.Range("Zeit").Column g = ActiveSheet.Range("Time").Column ActiveCell.Offset(0, f).Value = Format(Date) ActiveCell.Offset(0, g).Value = Format(Time) ActiveCell.Offset(1, 0).Select Loop End Sub

Hallo,
irgendwie stehe ich aber auf dem Schlauch. Ich der Spalte ja gar keine Zahl vorgegeben, sondern nur wie oben das Makro.
Nehme ich Deinen Vorschlag mit


Sub test()
Dim Mldg, Titel, Voreinstellung, Wert1
Mldg = "Zeile angeben wo das Makro anfangen soll"    ' Aufforderung festlegen.
Titel = "Zeilenanfang"    ' Titel festlegen.
Voreinstellung = "2"    ' Voreinstellung festlegen.
'Meldung, Titel und Standardwert anzeigen.
Wert1 = InputBox(Mldg, Titel, Voreinstellung)
Range("a2").Select
Do Until ActiveCell.Value = ""
i = i + 1
If i = 20 Then
ActiveWorkbook.Save
i = 1
Else
End If
deine_spalte1 = ActiveSheet.Range("zeit").Column
deine_spalte2 = ActiveSheet.Range("time").Column
Cells(i, deine_spalte1).Value = Format(Time)
Cells(i, deine_spalte2).Value = Format(Date)
ActiveCell.Offset(1, 0).Select
Loop
End Sub

dann trägt er mir das in der betreffenden Spalte (z.B. Time) in die erste Zeile. Das will ich aber auch nicht, da ich ja unter Umständen das Makro ja in einer anderen Zeile beginnen lassen will (daher auch die Inputbox).
Ich habe mal eine einfache Tabelle hochgeladen.

Die Datei https://www.herber.de/bbs/user/57590.xls wurde aus Datenschutzgründen gelöscht

Die Spalte F trägt den Namen Zeit und die Spalte G den Namen Time. Und jetzt soll ab Zeile 2 bis 6 in jede Zeile DAte und Time geschrieben werden.
Wie kann ich jetzt mit ActiveCell.Offset die gewünchte Spalte (Zeit oder Time) ansprechen?
Sorry, dass ich mich zu doof anstelle.
Vielen Dank für die Hilfe!
Viele Grüße
Markus

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

311 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Spalten in VBA anpassen

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

311 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread