Neue Proj.Nr. in Zelle einfügen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo, danke für deine Rückmeldung,
bei dem aktuellen Makro wird bereits die nächst höhere Nummer aus Sheet "Log" Spalte A generiert, jedoch wird diese nicht in dem Sheet "Ziel" in der Zelle kopiert, die in C302 hinterlegt ist:
Dim resultVariant As Variant
Dim i As Long
Dim AnzahlZ As Integer
Dim ZelleProNr As Range
Sheets("Log").Select
AnzahlZ = ActiveSheet.ListObjects("tab_log").Range.Rows.Count 'tab_log heißt die Tabelle in Log
ReDim resultVariant(AnzahlZ - 2)
For i = 2 To AnzahlZ
resultVariant(i - 2) = CByte(Right(Cells(i, 1).Value, 4)) ' CByte konvertiert Text in Zahl
Next
nummer = WorksheetFunction.Text(WorksheetFunction.Max(resultVariant) + 1, "0000") 'bis hier funktioniert alles
Sheets("Ziel").Select
Set ZelleProNr = Range(Cells(302, 3)) 'hier fehler
MsgBox (ZelleProNr) 'zeigt "nichts" an
Sheets("Ziel").Select
Range(ZelleProNr) = nummer ' Speichern der neuen Nummer in die Speicherzeile im Ziel

Sub Präparation() Dim X As Long Sheets("Log").Columns(1).NumberFormat = "0000" For X = 2 To 30 Sheets("log").Cells(X, 1) = (X - 1) Next Sheets("Ziel").Range("C302") = "D5" End Sub Sub Unit() Dim PN As String PN = Format(Application.Max(Sheets("Log").Columns(1)) + 1, "0000") Sheets("Ziel").Range(Sheets("Ziel").Range("C302").Value) = "'" & PN End Sub

Wo ist eine Bsp-Datei?
A: Wieso braucht man eine Beispiel-Datei, wenn in dieser nur zwei Tabellenblätter enthalten sind. Bei Tabellenblatt "Log" befindet sich in der Spalte A eine Liste von Nummern in Text-Form (0001, 0002.....). Im Tabellenblatt "Ziel" befindet sich in der Zelle C302 die Information zu dem Zellenort (z.b. D4 ).
Wo ist das Makro?
A: wurde von mir gepostet. Die Nummer wird herausgesucht. Leider wird der Wert aber noch nicht in den Zellenort hineinkopiert, der in C302 hinterlegt ist.
Wieso sind Zahlen Texte und nicht Zahlen?
A:Darüber brauchst Du dir keine Gedanken machen. Das wurde im Makro bereits beabreitet aber das ist dir bestimmt aufgefallen, da du es dir angeschaut hast...
Sollte jemand anderes helfen können, wäre ich sehr dankbar da ich leider mit meinen Fähigkeiten nicht weiterkomme.
Viele Grüße + schönen Feiertag
Basti

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

336 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Neue Proj.Nr. in Zelle einfügen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

336 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread