Thema Datum  Von Nutzer Rating
Antwort
Rot Kopieren von Werten in neue Tabellenzeile
20.03.2022 09:25:55 Sebastian
NotSolved
20.03.2022 11:40:37 Gast39093
NotSolved
22.03.2022 11:10:49 Gast54701
NotSolved

Ansicht des Beitrags:
Von:
Sebastian
Datum:
20.03.2022 09:25:55
Views:
193
Rating: Antwort:
  Ja
Thema:
Kopieren von Werten in neue Tabellenzeile

Hallo liebes Forum,

 

ich beherrsche leider kein VBA und das Aufzeichnen eines Makros hat mir auch nicht helfen können, daher möchte ich mich an euch wenden:

Sachverhalt: Ich habe zwei tabs, tab "dashboard" von dem aus die Daten kopiert werden sollen und tab "historical data" in dem zwei Tabellen mit Daten sind, in die die Daten aus dem Tab "dashoard" immer als neue Zeile eingefügt werden sollen.

Ich habe meine Tätigkeiten mit "Marko aufzeichnen" aufgezeichnet. Wenn ich das Makro erstmals ausführe verläuft auch alles wie gewünscht. Das Problem tauch dann auch wenn ich das Makro ein zweites mal ausführe. In den beiden Tabellen werden zwar neue Zeilen kreiert, allerdings sind diese ohne Inhalt. Ich hätte erwartet, dass diese wieder den selben Inhalt besäßen.

Es folgt das aufgezeichnete Makro:

' Makro11 Makro
'

'
    Range("P171").Select
    Selection.ListObject.ListRows.Add AlwaysInsert:=False
    Range("A172").Select
    Sheets("Dashboard").Select
    Range("A2").Select
    Selection.Copy
    Sheets("Historical Data").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Dashboard").Select
    Range("D32:O32").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Historical Data").Select
    Range("B172").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("N171:P171").Select
    Application.CutCopyMode = False
    Selection.AutoFill Destination:=Range("N171:P172"), Type:=xlFillDefault
    Range("N171:P172").Select
    Range("L172:M172").Select
    Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False
    Range("AG171").Select
    Selection.ListObject.ListRows.Add AlwaysInsert:=False
    Range("R172").Select
    Sheets("Dashboard").Select
    Range("A2").Select
    Selection.Copy
    Sheets("Historical Data").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Dashboard").Select
    Range("D33:O33").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Historical Data").Select
    Range("S172").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("AE171:AG171").Select
    Application.CutCopyMode = False
    Selection.AutoFill Destination:=Range("AE171:AG172"), Type:=xlFillDefault
    Range("AE171:AG172").Select
    Range("AC172:AD172").Select
    Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False
End Sub

 

Weiß jemand von euch weiter?

Vielen Dank im Voraus und Gruß

Sebastian

 


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
Rot Kopieren von Werten in neue Tabellenzeile
20.03.2022 09:25:55 Sebastian
NotSolved
20.03.2022 11:40:37 Gast39093
NotSolved
22.03.2022 11:10:49 Gast54701
NotSolved