Microsoft Excel

Herbers Excel/VBA-Archiv

Datum mit Uhrzeit aus Zelle | Herbers Excel-Forum


Betrifft: Datum mit Uhrzeit aus Zelle von: Snewi
Geschrieben am: 13.02.2012 08:51:08

Hallo,

ich habe den Syntax:

(TAG_VALUE.CLOCK Between {ts '2012-01-27 14:40:00'} And {ts '2012-01-27 15:35:00'}))"

ich würde jetzt gerne aus 2 Zellen und zwar A1 und A2 aus Tabelle1 jeweils die Zeit oben automatisch in den Syntax übernehmen!

Wie mache ich das?

gruß

  

Betrifft: AW: Datum mit Uhrzeit aus Zelle von: Josef Ehrensberger
Geschrieben am: 13.02.2012 09:02:59


Hallo snewi,
"(TAG_VALUE.CLOCK Between {ts '" Format(Range("A1"),"yyyy-MM-dd hh:mm:ss") & "'} And {ts '" Format(Range("A""),"yyyy-MM-dd hh:mm:ss") & "'}))"



« Gruß Sepp »



  

Betrifft: AW: Datum mit Uhrzeit aus Zelle von: Snewi
Geschrieben am: 13.02.2012 09:08:07

er meckert das Format an !?!?!?!

With Selection.ListObject.QueryTable
.Connection = Array(Array( _
"ODBC;DSN=stelo;UID=prd;;DBQ=prdel;DBA=W;APA=T;EXC=F;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;BTD=F;BNF=F;BAM=IfAllSuccessful;NUM=NLS;" _
), Array("DPM=F;MTS=T;MDI=F;CSR=F;FWC=F;FBS=64000;TLO=O;"))
.CommandText = Array( _
"SELECT TAG_VALUE.CLOCK, TAG_VALUE.VAL" & Chr(13) & "" & Chr(10) & "FROM ELOPRD.TAG_INDEX TAG_INDEX, PRD.TAG_TO_DB TAG_TO_DB, PRD.TAG_VALUE TAG_VALUE" & Chr(13) & "" & Chr(10) & "WHERE TAG_TO_DB.NAME = TAG_INDEX.NAME AND TAG_VALUE.ID = TAG_TO_DB.ID AN" _
, _
"D ((TAG_TO_DB.ID=102) AND (TAG_VALUE.CLOCK Between {ts '" Format(Range("tab!B2"),"yyyy-MM-dd hh:mm:ss") & "'} And {ts '" Format(Range("tab!C2"),"yyyy-MM-dd hh:mm:ss") & "'}))" _
)
.Refresh BackgroundQuery:=False
End With


  

Betrifft: AW: Datum mit Uhrzeit aus Zelle von: Josef Ehrensberger
Geschrieben am: 13.02.2012 09:10:52


Hallo Snewi,

zwei Mal die & vergessen;-((
"(TAG_VALUE.CLOCK Between {ts '" & Format(Range("A1"),"yyyy-MM-dd hh:mm:ss") & "'} And {ts '"  & Format(Range("A""),"yyyy-MM-dd hh:mm:ss") & "'}))"



« Gruß Sepp »



  

Betrifft: AW: Datum mit Uhrzeit aus Zelle von: Snewi
Geschrieben am: 13.02.2012 09:24:28

klappt super!

Wie würde das ganze denn aussehen wenn ich das mit variablen machen möchte die dann public wären?


  

Betrifft: AW: Datum mit Uhrzeit aus Zelle von: Josef Ehrensberger
Geschrieben am: 13.02.2012 09:29:41


Hallo Snewi,

so?

' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Public str1 As String
Public str2 As String

Sub Makro1()
  Dim strOut As String
  
  str1 = Format(Range("A1"), "yyyy-MM-dd hh:mm:ss")
  str2 = Format(Range("A2"), "yyyy-MM-dd hh:mm:ss")
  
  
  strOut = "(TAG_VALUE.CLOCK Between {ts '" & str1 & "'} And {ts '" & str2 & "'}))"
  
End Sub






« Gruß Sepp »



  

Betrifft: AW: Datum mit Uhrzeit aus Zelle von: Snewi
Geschrieben am: 13.02.2012 09:55:56

Suuuper genauso :-)


  

Betrifft: AW: Datum mit Uhrzeit aus Zelle von: Snewi
Geschrieben am: 13.02.2012 09:59:06

ach eine Frage noch wenn ich str1 und str2 auch in verschiedenen MAkros anwenden will wie mache ich es dann?

gruß


Beiträge aus den Excel-Beispielen zum Thema "Datum mit Uhrzeit aus Zelle"