Hallo, Gast92328!
Vielen Dank für die unglaublich Schnelle Antwort.
Ihre Vorschläge haben mir sehr geholfen und alles funktioniert jetzt wunderbar.
Die komplette Lösung für mein Problem:
'Zeilennummer aus Spalte mit der Nummer "28" herausfinden
With ActiveSheet
zeilennummer = .Cells(.Rows.Count, 28).End(xlUp).Row
End With
'Wert aus Spalte "O" mit Zeilennummer "10" ziehen
wert = Range("O10").Value
'Wert in Spalte "G" mit vorher zugewiesener Zeilennummer "zeilennummer" einfügen
Sheets("2015").Cells(zeilennummer, "G").Value = wert
Vielen Dank nochmal!
Nun hätte ich aber noch ein Problem. Ich möchte die das Tabellenblatt in 1-Sekundenabständen aktualisieren. Das heißt ich möchte Werte, die zeitabhängig sind aktualisieren.
Dazu möchte ich einen Button mit UpdateStart und UpdateStop einrichten.
Bis jetzt ist es mir nur gelungen die Updatesequenz beim Öffnen der Datei zu starten. Auch der UpdateStop-Button funktioniert. Jedoch muss ich um die Sequenz wieder zu starten die Datei neu öffnen, was sehr nervig ist.
Hier der aktuelle Code:
Option Explicit
Public Const dIntervallSek = 1 ' Intervall in Sekunden
Public dNextRun As Double
Public bStopRun As Boolean
Sub Makro38()
Dim wkb As Workbook
Dim blnOpen
SendKeys "{F9}", True
Ende:
End Sub
Public Sub RunMakro()
If bStopRun Then Exit Sub
Call Makro38
dNextRun = Now() + TimeSerial(0, 0, dIntervallSek)
Application.OnTime dNextRun, "RunMakro"
Application.StatusBar = "Makro38 läuft wieder um " & Now() + TimeSerial(0, 0, dIntervallSek)
End Sub
Public Sub StopMakro()
bStopRun = True
If dNextRun <> 0 Then Application.OnTime dNextRun, "RunMakro", , False
Application.StatusBar = "Makro38 ist gestoppt!"
dNextRun = 0
End Sub
Bitte wiederum um rasche Rückmeldung!
Mfg
|