in einem Modul berechne ich eine Mitgliedernummer, die dann mit einem Präfix in eine Tabelle eingetragen wird.
Den Code des Moduls habe ich begefügt, das merkwürdige, wenn in der Case Select Anweisung der erste Strang abgearbeitet wird (Dort wird als Mitgliedsnummer in die Tabelle FR-0001 eingetragen, da funktioniert es genau so wie ich es möchte.
Wen der zweite Case Strang ausgeführt wird, dann springt er bei genau der gleichen Anweiung (dort soll das Präfix FRE lauten, also FRE-0001 immer in eine Fehlermeldung und zeigt mir den Errorcode 1004 mit der Beschreibung: Die Numberformat Eigenschaft des Range Objects kann nicht festgelegt werden!
Ich verstehe das nicht, da die Zeilen ja bis auf den einen zusätzlichen Buchstabe identisch sind. Wer kann mir das erklären warum er da diesen Feher macht und wie kann ich das fixen:
Dim intMitgliedsNummerAlt As String, intMitgliedsNummerNeu As String, intLetzteZeile As String, intLetzteSpalte As String
Dim strAbfrageMB As String
Const bytErsteZeile As Byte = 8
Const intErsteMitgliedsnummer As Integer = 1
Sub MitgliedsnummerErstellen()
On Error GoTo err
Call BoxenFormularTexte
'Variablen deklarieren
Set ws = ThisWorkbook.Worksheets("Mitgliederliste")
intLetzteZeile = ws.Cells(Rows.Count, 2).End(xlUp).Row
intLetzteSpalte = ws.Cells(bytErsteZeile - 1, Columns.Count).End(xlToLeft).Column
'Abfragen welches Mitglied erstellt werden soll
Select Case strMitgliedsart
'FR Mitglied anlegen
Case Is = "FRMitglied"
'Abfrage ob schon ein Mitglied vorhanden ist
If intLetzteZeile
https://www.herber.de/bbs/user/125997.xlsm