Thema Datum  Von Nutzer Rating
Antwort
25.02.2021 09:29:13 Stephanie
Solved
25.02.2021 19:37:38 Gast63046
NotSolved
26.02.2021 09:17:01 Gast33769
NotSolved
Blau VBA Daten kopieren mit Jetzt() und Dropdown
26.02.2021 16:44:18 Gast39321
*****
Solved

Ansicht des Beitrags:
Von:
Gast39321
Datum:
26.02.2021 16:44:18
Views:
180
Rating: Antwort:
 Nein
Thema:
VBA Daten kopieren mit Jetzt() und Dropdown

In deinem Makro kopierst du aus Overview den Wert aus Zelle C6 nach Tabelle1. Wenn ich es richtig verstanden habe, ergibt sich der Wert aus der Formel "=JETZT()", genau so wie die Werte in Overview Spalte A sich aus "=JETZT()" ergeben? Dann kannst du natürlich den nach dem Kopiervorgang aus Overview nicht den Wert aus Tabelle1!C6 nehmen, weil sich bis dahin die Sekunden bereits verändert haben können.

Sub Bestandsdaten_kopieren()
  
  'Bereich kopieren
  Sheets("overview").Range("A211:AP236").Copy
  
  'einfügen in erste freie Zeile in ausgabe, 'Rows.Count gibt Anzahl Zeilen zurück, 1 ist die Spalte in der gesucht wird 'Offset gibt zurück 1 Zeile nach unten und 0 Spalten zur Seite
  Sheets("Datenbank Bestand").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
  
  'Kopiermodus beenden Application.CutCopyMode = False
  Sheets("Overview").Range("C6").Copy
  Sheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
  
  Application.CutCopyMode = False

End Sub

Nimm stattdessen den Wert aus dem bereits fertig kopierten Bereich (also am Zielort), denn der Wert ist kein Formelergebnis mehr.

Die entspr. Zeile ist markiert.

Option Explicit

Sub Bestandsdaten_kopieren()
  
  Dim rngSrcData As Excel.Range
  Dim rngDstData As Excel.Range
  
  With Worksheets("overview")
    Set rngSrcData = .Range("A211:AP236")
  End With
  
  With Worksheets("Datenbank Bestand")
    Set rngDstData = .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0)
    Set rngDstData = rngDstData.Resize(rngSrcData.Rows.Count, rngSrcData.Columns.Count)
  End With
  
  Call rngSrcData.Copy
  Call rngDstData.PasteSpecial(xlPasteValuesAndNumberFormats)
  
  With Worksheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
    .Value = rngDstData.Cells(1, 1).Value 
  End With
  
  Application.CutCopyMode = False

End Sub

Grüße


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
25.02.2021 09:29:13 Stephanie
Solved
25.02.2021 19:37:38 Gast63046
NotSolved
26.02.2021 09:17:01 Gast33769
NotSolved
Blau VBA Daten kopieren mit Jetzt() und Dropdown
26.02.2021 16:44:18 Gast39321
*****
Solved