Thema Datum  Von Nutzer Rating
Antwort
Rot Wert in der nächste freie Zeile einfügen
 13.12.2015 15:06:35 Arek
NotSolved
13.12.2015 18:51:06 Gast59223
*****
Solved
13.12.2015 19:08:28 Arek
NotSolved

Ansicht des Beitrags:
Von:
Arek		 Datum:
13.12.2015 15:06:35		 Views:
1869		 Rating:
     
Antwort:
  Ja
Thema:
Wert in der nächste freie Zeile einfügen

Hallo Zusammen,

 

Ich hoffe, dass jemand von Euch mir mit folgendem Problem helfen konnte. Ich möchte nämlich Werte in die Zellen C26:D26 angeben und den Wert sollte in die nächste freie Zelle (ab J25:K25) eingefügt werden. Die Werte sollten nacheinander bis zu 13. Werten eingefügt werden. Wenn ich der Makro ausführe, werden die Werte in die Zeilen K25:L25 eingetragen. Außerdem, wenn ich ein neuer Wert eintragen möchte, überschreibt sich die erste Reihe (K25:L25). Könnte mir vielleicht jemand helfen? Leider nach ein paar Stunden kann ich nicht mehr nachvoliziehen, was ich falsch mache :(.

Sub Wariant()

Dim WSDane  As Worksheet
    Dim rgBereich As Range
    Set WSDane = ThisWorkbook.Worksheets("Dane")
    Set rgBereich = Range("J25:K37")
    
   WSDane.Range("C26:D26").Copy
   rgBereich(Cells(1, 1) & WSDane.Cells(WSDane.Rows.Count, 10).End(xlUp).Row + 1).PasteSpecial _
   Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
   Application.CutCopyMode = False

    
    Range("C26:D26").ClearContents
    Range("D29").Value = "Ready"
    
End Sub

 

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 Wert in der nächste freie Zeile einfügen
 13.12.2015 15:06:35 Arek
NotSolved
13.12.2015 18:51:06 Gast59223
*****
Solved
13.12.2015 19:08:28 Arek
NotSolved