Fortlaufende Nummer einfügen
31.08.2020 13:55:06
Richard
ich habe das Problem das ich mittel UserForm meine Datenbank erweitere und dabei gerne eine fortlaufende Nummer einfügen möchte. Der Code sieht bis jetzt wie folgt aus, jedoch noch ohne der fortlaufenden Nummer...
Kann mir da jemand helfen?
Besten Dank im Voraus
Option Explicit
Private Sub Anzahl_Click()
End Sub
'Abbrechen
Private Sub ToggleButton_Abbrechen_Click()
Unload Me
End Sub
Private Sub ToggleButton_Anlegen_Click()
'Erste freie Zeile ausfindig machen
Dim last As Integer
last = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row + 1
'UID
Cells(last, 3).Value = TextBox_UID
'Anzahl der EOL Läufe
Cells(last, 7).Value = TextBox_Anzahl + " Serienläufe NIO"
'Status bei Erstellung
Cells(last, 1).Value = "unbearbeitet"
'fortlaufende Nummer
Hier möchte ich das die Zeile oberhalb um +1 erweitert wird
'Abgeschrieben
Cells(last, 12).Value = "Nein"
Unload Me
'Mail verteilen
Sheets("NVH-Zerlegerübersicht").Select
Range("A1").Select
Dim Mailadressen As String, Adr() As Variant
Adr = WorksheetFunction.Transpose(Worksheets(3).Range("C2:C200").SpecialCells( _
xlCellTypeConstants, 2))
Mailadressen = Join(Adr, ";")
Dim OpenOutlookApp As Object
Dim OutlookMailItem As Object
Set OpenOutlookApp = CreateObject("outlook.application")
Set OutlookMailItem = OpenOutlookApp.CreateItem(0)
With OutlookMailItem
.To = Mailadressen
.Subject = "UID: " & Me.TextBox_UID
.Body = "Hallo,"
.Send
End With
Set OpenOutlookApp = Nothing
Set OutlookMailItem = Nothing
End Sub
Anzeige