Thema Datum  Von Nutzer Rating
Antwort
Rot Letzen Wert in Einer Spalte suchen (A) und den Wert immer um den Wert 1 erhöhen
12.03.2019 13:40:38 Julian Kolb
NotSolved
13.03.2019 11:57:01 Gast43667
NotSolved

Ansicht des Beitrags:
Von:
Julian Kolb
Datum:
12.03.2019 13:40:38
Views:
44
Rating: Antwort:
  Ja
Thema:
Letzen Wert in Einer Spalte suchen (A) und den Wert immer um den Wert 1 erhöhen

Hallo Zusammen,

 

Ich programmiere gerade in Excel die Vorlage für einen Lieferschein. 
Jetzt habe ich folgendes Problem: Wenn per Button eine neue Position aus der Vorlage einfüge (Positions-Nummer ist in der Vorgabe standardmäßig 1) soll der Wert eine fortlaufende Zahlenfolge ergeben. Nach Position 2 kommt 3 und 4 usw.  

 
Dim lRow As Long
 
    ThisWorkbook.Activate
 
    '1. Find last used row in destination sheet
    lRow = Worksheets("Lieferschein").Cells(Worksheets("Lieferschein").Rows.Count, 2).End(xlUp).Row
    
    'Offset 1 row below last used row
    lRow = lRow + 1
 
    '2. Copy data
    Worksheets("Quelle").Range("41:49").Copy
    
    '3. Paste data
    Worksheets("Lieferschein").Range("A" & lRow).PasteSpecial
    
    'Clear copy mode (marching ants around copied range)
    Application.CutCopyMode = False
 
 
Aktuell benutze ich diesen Code um die Vorlage unter die vorhandenen Positionen zu kopieren, dass funktioniert auch einwandfrei. Wie kann ich das Positionsproblem jetzt lösen?

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • 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
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Letzen Wert in Einer Spalte suchen (A) und den Wert immer um den Wert 1 erhöhen
12.03.2019 13:40:38 Julian Kolb
NotSolved
13.03.2019 11:57:01 Gast43667
NotSolved