Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 15:29:29
Notizen einheitliche Position, Formatierung per Bezugsspalte
16.04.2024 15:16:53
Summen mit verschiedenen Variablen
16.04.2024 14:29:30
Matrixkonstanten als Quelle für Gültigkeit und Steuerelement
16.04.2024 13:54:06
Multiplikation
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1572to1576
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1572to1576
1572to1576
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

variable Konstante in VBA?

variable Konstante in VBA?
14.08.2017 16:10:17
Thilo
Hallo,
ich habe folgendes Problem.
Eine Datei erhält fortlaufend aktuelle Daten von einer externen Quelle.
Per VBA wird ca. alle 2 Minuten ein Protokollsatz erzeugt. Ein vereinfachtes Beispiel hier:
https://www.herber.de/bbs/user/115451.xls
Die Werte in A1, A2 etc. ändern sich dauernd.
Ist es möglich, das Intervall aus Zelle E1 des Unterblatts "Level 1" variabel einzulesen? (E1 wäre dann eine Formel, die den Text "00:01:58" erzeugt.)
Ich habe probiert, wksData3.Range("E1") statt "00:01:58" einzugeben, aber da ist mir das Programm abgestürzt.
Vielen Dank im voraus,
Thilo

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: variable Konstante in VBA?
14.08.2017 16:12:12
Hajo_Zi
Hallo Thilo,
warum neuen Beitrag?

Ich gebe keinen Dank für eine Rückmeldung, da ich durch solche Beiträge nicht meine Beitragszahl erhöhen muss.
Rückmeldung ist ja in der Heutigen Zeit nicht üblich und die wenigen die eine Rückmeldung geben, mögen mir das verzeihen, das kein Danke für eine Rückmeldung kommt.
AW: variable Konstante in VBA?
14.08.2017 16:20:37
Thilo
Hallo Hajo,
auf Bitte von Chris. Siehe unter dem anderen Beitrag.
Beste Grüße,
Thilo
auf meinem Mist gewachsen owT.
14.08.2017 16:25:03
ChrisL
.
AW: variable Konstante in VBA?
14.08.2017 16:23:37
Sepp
Hallo Thilo,
' **********************************************************************
' Modul: Modul2  Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Public datTime As Date
Public Const strOntimeProcedure = "subAktion" 'Name der per Timer gestarteten Procedur

Sub StartTimer()
Call subAktion
End Sub

Sub StopTimer()
On Error Resume Next 'falls Timer nicht gestartet wurde
Application.OnTime Earliesttime:=datTime, Procedure:=strOntimeProcedure, schedule:=False
End Sub

Sub subAktion()
Dim wb As Workbook
Dim wksData1 As Worksheet, wksData2 As Worksheet, wksData3 As Worksheet, wksProto As Worksheet
Dim ZeileP As Long, dblWhen As Double
Set wb = ThisWorkbook
Set wksData1 = wb.Worksheets("Daten")
Set wksData3 = wb.Worksheets("Level 1")
Set wksProto = wb.Worksheets("Protokoll")

If IsNumeric(wksData3.Cells(1, 5)) Then
  dblWhen = CDate(wksData3.Cells(1, 5))
Else
  dblWhen = TimeSerial(0, 1, 0)
End If

With wksProto
  ZeileP = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
  .Cells(ZeileP, 1).Value = wksData1.Range("A1").Value
  .Cells(ZeileP, 2).Value = wksData3.Range("A1").Value
  .Cells(ZeileP, 3).Value = wksData3.Range("A2").Value
  .Cells(ZeileP, 4).Value = wksData3.Range("A3").Value
  .Cells(ZeileP, 5).Value = wksData3.Range("A4").Value
  .Cells(ZeileP, 6).Value = wksData1.Range("A2").Value
End With

datTime = Now + CDate(dblWhen)
Application.OnTime Earliesttime:=datTime, Procedure:=strOntimeProcedure
End Sub

Gruß Sepp

Anzeige
AW: variable Konstante in VBA?
14.08.2017 16:24:26
ChrisL
Hi Thilo
Public strTimeDiff As String
Sub StartTimer()
strTimeDiff = Worksheets("Level 1").Range("E1")
Call subAktion
End Sub

cu
Chris
AW: variable Konstante in VBA?
14.08.2017 17:14:26
Thilo
Vielen Dank schon mal an alle!
Ich habe jetzt die Lösung von Chris ausprobiert.
Im Prinzip tut sie schon, was sie soll, aber: wenn ich das Sekundenintervall, während das Protokoll läuft, manuell verändere (und genau das soll im Echtbetrieb ja automatisch passieren), läuft das Protokoll mit dem alten Intervall weiter. Erst wenn ich das Protokoll stoppe und dann neu starte, übernimmt VBA das neue Intervall. Siehe Anhang, ich hatte von 3 auf 20 Sekunden geändert:
https://www.herber.de/bbs/user/115453.xls
Gibt es eine Lösung, dass sich Änderungen in Zelle Level 1!E1 unmittelbar auswirken?
Thilo
Anzeige
meine Lösung probiert? o.T.
14.08.2017 17:17:32
Sepp
Gruß Sepp

AW: meine Lösung probiert? o.T.
14.08.2017 17:47:54
Thilo
Hallo Sepp,
in der Datei

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


habe ich ein 10 Sekunden-Intervall hinterlegt, aber er scheint nur einen Satz pro Minute (Worksheet Protokoll) zu generieren. Oder stimmt was mit dem Format in Level 1!E1 nicht?
Thilo
AW: meine Lösung probiert? o.T.
14.08.2017 18:23:02
Sepp
Hallo Thilo,
klar, in E1 steht jetzt auch plötzlich ein Text und keine Uhrzeit!
Ich habe den Code umgestellt, die Zeit wird jetzt direkt aus den Eingabe-Zellen ermittelt.
Außerdem habe ich die Eingabezellen mit einer Gültigkeitsprüfung gegen Falscheingabe gesichert.
https://www.herber.de/bbs/user/115456.xls
Gruß Sepp

Anzeige
AW: meine Lösung probiert? o.T.
14.08.2017 18:29:11
Thilo
Klasse Sepp, jetzt passt's genau!
Vielen Dank,
Thilo
AW: variable Konstante in VBA?
14.08.2017 17:41:31
ChrisL
Hi Thilo
Nimm den Code von Sepp. Der schlaue Fuchs hat den Intervall innerhalb von SubAktion platziert.
cu
Chris

317 Forumthreads zu ähnlichen Themen

Darstellung von Variablen in Textfeldern von Grafi
Variablen

Ich habe in einer EXCEL-Anwendung mehrere Grafiken mit eingefügten Textfeldern. Die Inhalte der Textfelder wurden bisher manuell erfasst. Besteht eine Möglichkeit, die Textfelder mit den Inhalten von Zellen aus der EXCEL-Anwendung zu verknüpfen? Mein Wunsch ist, in Zukunft bei Aktualisierung de...
06.10.2008 18:22:00
Thread-ID: 1014516
5 Beiträge
Anzeige
Variablen in Textfile schreiben, getrennt durch ta
Siggi

Hallo,
ich möchte Variablen mit Hilfe der "writeline" Befehls in eine Textdatei schreiben. Funktioniert soweit auch gut. Leider werden die einzelnen Werte die ich in eine Zeile schreibe direkt aneinander gereiht. Ist es möglich diese durch einen Tabstop zu trennen?
Der folgende Code ist...
31.10.2008 17:56:05
Thread-ID: 1020933
3 Beiträge
OpenText FieldInfo variabler array
Siggi

Hallo zusammen,
ich habe eine Textdatei die ich in Excel auslesen möchte. Zum Import nutze ich momentan die Opentext Methode. Anschließend lese ich die Werte des erzeugten Arbeitsblatts in ein Array ein um dann wiederum bestimmte Werte in eine Textdatei zu schreiben.
Workbooks.OpenText...
14.11.2008 18:56:29
Thread-ID: 1024682
2 Beiträge
Anzeige
VBA Abspeichern in variablen Ordner
Danomat

Hi,
folgendes Problem
In Zelle C1 steht der aktuelle Monat. Nun möchte ich die Datei als PDF abspeichern:
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"G:\Dokumente\Berichtswesen\Monatsreporting\02 Februar\Test.pdf" _
, Quality:=xlQualityStandard, IncludeDo...
13.03.2009 12:37:34
Thread-ID: 1059831
10 Beiträge
variable Zeilenanzahl kopieren, einfügen (VBA)
Alex

Hallo Leute,
In meiner Arbeitsmappe kopiere ich eine! Zeile (aus dem TabBlatt „Grundformular“) - via Doppelklick auf einen Namen in „Übersicht“ - in andere TabBlätter.
(das geht wunderbar)
Sieht jemand eine Möglichkeit ob/wie das ganze mit einer variablen Zeilenanzahl, die im „Grund...
18.03.2009 17:23:56
Thread-ID: 1061522
3 Beiträge
UF->TextBox -> Eingabewerte in Variablen speichern
Best4you

Hallo,
in einem UserForm gebe ich ein Angangsdatum und ein Enddatum in zwei verschiedene Textfelder ein.
Nun möchte ich, die Nettoarbeitstage ausrechnen und im selbigen UF anzeigen lassen.
Ich weiß nur nicht, wie ich die eingegebenen Werte der TextBoxen in Variablen speichere, dami...
17.05.2009 16:35:25
Thread-ID: 1075704
6 Beiträge
VBA - Hilfetexte für Funktionen wie MsgBox, InputB
Stefan

Hallo zusammen,
gibt es eine einfache Möglichkeit, in VBA Hilfetexte (welche ruhig einfachen Textfiles o.ä. entsprechen können) für Funktionen wie MsgBox, InputBox etc. zu hinterlegen?
Danke vorab und Gruß.
Stefan
12.06.2009 09:41:53
Thread-ID: 1080899
2 Beiträge
Variable Liste in VBA
Diana

Liebes Forum,
ich habe ein Problem. Ich lese mit einem VBA-Makro Messwerte aus. Diese Messwerte werden über einen Namen auf einem anderen Rechner angesprochen. Derzeit gebe ich diese Namen (Adressen) direkt in das Makro ein.
strSQL = "SELECT k055z02_0.Zeit, k055z02_0.A00100001, ..., .....
14.08.2009 14:59:47
Thread-ID: 1096000
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
7
2
1
4
9
2
5
1
3
2
3
16
10
4
2
6
6
4
4
2
1
6
9
2