Wie bekommt man Werte autom. aus Tab1 nach Tab2?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub prcOnTimeMakro() Dim objListObject As ListObject 'der nachfolgende Teil muss individuell angepasst werden Dim wksQ As Worksheet, wksZ As Worksheet Dim Zeile As Long 'Bei der Zuweisung der Tabellenblätter zu den Variablen ggf. statt Indexnummern _ die Namen Set wksQ = Tabelle1 'Codename der Quelltabelle Set wksZ = Tabelle2 'Codename der Zieltabelle If VBA.Weekday(Date, vbMonday)

Hallo Franz,
danke für die Anpassungen, wobei ich wahrscheinlich noch ein Verständnisproblem damit habe.
Die beiden Tabellen sind ja sinnigerweise definiert mit wksQ und wksZ. Im eigentlichen Code, was es machen soll, steht
If VBA.Weekday(Date, vbMonday) < 6 Then
'Nur Mo-Fr Werte übertragen
With wksZ
Zeile = .Cells(.Rows.Count, 1).End(xlUp).Row + 1 'nächste freie Zeile
Sagt, dass er in der Zieltabelle immer neue Zeile beschreiben soll wie gewünscht. Und für die Quelltabelle ist die Definition so?
With wksZ
Zeile = .Cells(.Rows.Count, 1).End(xlUp).Row + 1 'nächste freie Zeile
.Cells(Zeile, 1).Value = wksQ.Cells(2, 1).Value 'K3 oder wksQ.Range("K3").Value
.Cells(Zeile, 2).Value = wksQ.Cells(3, 1).Value 'K4 oder wksQ.Range("K4").Value
.Cells(Zeile, 3).Value = wksQ.Cells(4, 1).Value 'K5 oder wksQ.Range("K5").Value
.Cells(Zeile, 4).Value = wksQ.Cells(4, 1).Value 'K6 oder wksQ.Range("K6").Value
.Cells(Zeile, 5).Value = wksQ.Cells(4, 1).Value 'K7 oder wksQ.Range("K7").Value
.Cells(Zeile, 6).Value = wksQ.Cells(4, 1).Value 'K8 oder wksQ.Range("K8").Value
.Cells(Zeile, 7).Value = wksQ.Cells(4, 1).Value 'K9 oder wksQ.Range("K9").Value
.Cells(Zeile, 8).Value = wksQ.Cells(4, 1).Value 'K10 oder wksQ.Range("K10").Value
.Cells(Zeile, 9).Value = wksQ.Cells(4, 1).Value 'K11 oder wksQ.Range("K11").Value
.Cells(Zeile, 10).Value = wksQ.Cells(4, 1).Value 'K34 oder wksQ.Range("K34").Value
.Cells(Zeile, 11).Value = VBA.Date 'für Kontrollzwecke
.Cells(Zeile, 12).Value = VBA.Time 'für Kontrollzwecke
Warum die beiden letzten Zeilen?
Da ist jetzt mein Haken im Kopf. Der kopiert die Werte nun in Zieltabelle in die Felder A2, B2, C2, D2 usw.
Ich habe ja in diesem Jahr schon absolute Werte in der Zieltabelle stehen, welche ich natürlich "händisch" hinterlegt habe. Weiterhin ist in der
Zieltabelle die Spalte A als Datumsspalte definiert und eben die Tage schon vordefiniert. Sprich die Werte dürfen erst
ab Spalte B geschrieben werden und nun, weil wir schon den 14.01.2016 haben eben ab Zeile 11. Wie löst man so etwas?
Im nächtsen Jahr wäre das nicht notwendig, aber aktuell muss ich ihm sagen, ab welcher Zeile er schreiben darfwannin
der Zieltabelle, oder? Und ja, ich weiss. Ich muss mich wohl "genauer" bzw. klarer ausdrücken, das muss ich mir
wohl auf die Fahne schreiben lassen, auch wenn es nicht meine Art ist und für dich in deinem Fall meine Erkenntnis wohl
zu spät kommt, sorry. :-(.
Das Beispiel mit den Zellen nebeneinander habe ich mal ausdokumentiert, aber sollte ich mal was umstellen habe ich dann
ja ein Beispiel. Danke dafür.
Gruß Andreas

Sub prcOnTimeMakro() Dim wksQ As Worksheet, wksZ As Worksheet Dim Zeile As Long 'Bei der Zuweisung der Tabellenblätter zu den Variablen ggf. statt Indexnummern _ die Namen Set wksQ = Tabelle1 'Codename der Quelltabelle Set wksZ = Tabelle2 'Codename der Zieltabelle If VBA.Weekday(Date, vbMonday)

'Startet beim Öffnen der Datei automatisch die Ausführung des OnTime-Makros Private Sub Workbook_Open() 'Teil Sepp StartTimer 'Teil Franz On Error GoTo Fehler datNextStart = Tabelle1.Range("Startzeit") Application.OnTime EarliestTime:=datNextStart, Procedure:="prcOnTimeMakro", schedule:=False prcOnTimeStart Err.Clear Fehler: With Err Select Case .Number Case 0 'kein Fehler Case Else 'OnTime-Ereignis war nicht mehr vorhanden 'Dieser Fehler kann auftreten, wenn Excel zwischenzeitlch beendet wurde 'OnTime-Makro neu Starten prcOnTimeStart End Select End With End Sub

Hi,
selbstverständlich, eine Glaskugel hast du ja nicht ich Dösboddel. Beim starten der Exceldatei startet auch der Debugger mit folgender Meldung:
Fehler beim Kompilieren: Variable nicht definiert. Wenn ich mit OK bestätige, gelb markiert <pre>Private Sub Workbook_Open() und blau hinterlegt datNextStart = Daten.Range("Startzeit")
Hier der Code aus "Dieser Arbeitsmappe".
~f~
' **********************************************************************
' Modul: DieseArbeitsmappe Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************
Option Explicit
'Startet beim Öffnen der Datei automatisch die Ausführung des OnTime-Makros
<pre>Private Sub Workbook_Open()
'Teil Sepp
StartTimer
'Teil Franz
On Error GoTo Fehler
datNextStart = Daten.Range("Startzeit")
Application.OnTime EarliestTime:=datNextStart, Procedure:="prcOnTimeMakro", schedule:=False
prcOnTimeStart
Err.Clear
Fehler:
With Err
Select Case .Number
Case 0 'kein Fehler
Case Else
'OnTime-Ereignis war nicht mehr vorhanden
'Dieser Fehler kann auftreten, wenn Excel zwischenzeitlch beendet wurde
'OnTime-Makro neu Starten
prcOnTimeStart
End Select
End With
End Sub</pre>
<pre>Private Sub Workbook_BeforeClose(Cancel As Boolean)
StopTimer
End Sub</pre>
Erklärend dazu ist zu sagen, dass ich aus dem ursprünglichen Code Tabelle1.Range("Startzeit") mit Daten.Range("Startzeit") ersetzt habe. In dieser Tabell Daten habe ich ja auch die beiden Zellen S1 (Startzeit) und S2 (Zeitdiffferenz) namentlich definiert und im Zeitformat formatiert. Ich habe gesehen, dass du in beiden Tabellenblättern Option Explicit drin hast. Aber selbst wenn ich diese Option in beiden Tabellen eintrage, dann ändert sich das Fehlerbild nicht. Den Code des Makro habe ich jetzt noch nicht hier abgebildet, da er sich bis auf die Änderung der Tabellennamen nicht von deinem letzten Post https://www.herber.de/forum/messages/1469029.html unterschieden hat, außer eben Tabelle1 in Daten umbenannt. Wenn ich den Code des Makros auch noch posten soll, dann sag mir Bescheid. Aber der Fehler tritt ja schon beim starten auf, da bin ich an dem Makro noch gar nicht angelangt. Also sollte das erst mal unrelevant sein, oder?
Gruß Andreas

Beliebteste Forumthreads (12 Monate)

Wie bekommt man Werte autom. aus Tab1 nach Tab2?

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread