Automatische nummerierung und Buchstabenteil
Sonja
Ich habe nun in den letzten 2-3h fast sämtliche "automatische Nummerierung"s-threats durchgesucht und probiert, bin auch fündig geworden und es hat mir sehr geholfen. Nur ein Problem ist geblieben:
Ich hab nun mein Makro, startbar über Button, es funktioniert tadellos.
Ich öffne aus meiner aktiven Datei "64304.xls"eine neue schon abgespeicherte Datei "Mappe1", suche mir die erste leere Zeile, setze in Spalte A eine fortlaufende Nummer, die sich aus der Nummer der Zelle A in der Zeile darüber generiert ( mit "1" aufsummieren), setze in die Zelle daneben in Spalte B einen Wert aus meinem Ausgangssheet, speichere die Ausgangsdatei ab und schliesse sie, speichere die Zieldatei "Mappe1" udn setze sie aktiv.
Folgendes ist das Makro dazu:
Private Sub CommandButton1_Click()
Dim strPfad As String, strDatei As String
Dim lngNeueZeile As Long
Dim lngLetzteZeile As Long
strPfad = "C:\Dokumente und Einstellungen\Sonja\Desktop\" 'Pfad angeben
strDatei = Dir(strPfad & "Mappe1.xls")
If strDatei "" Then
Workbooks.Open strPfad & strDatei
Else
MsgBox "File ist nicht auffindbar"
End If
' zeile ermitteln und daten reinschreiben
lngNeueZeile = ActiveSheet.Range("A65536").End(xlUp).Row + 1
lngLetzteZeile = ActiveSheet.Range("A65536").End(xlUp).Row
ActiveSheet.Cells(lngNeueZeile, 1).Value = ActiveSheet.Cells(lngLetzteZeile, 1).Value + 1
ActiveSheet.Cells(lngNeueZeile, 2).Value = Workbooks("64304"). _
Worksheets("TabEingabe").Range("E12").Value
Workbooks("64304.xls").Save
Workbooks("64304.xls").Close
Workbooks("Mappe1").Save
Workbooks("Mappe1").Activate
End Sub
Meine Probleme:
1.) Ich brauche keine Nummerierung in reinem Zahlenformat, sondern die Buchstabenkombination "an" davor, dann die laufende Nummer und ein Datum, das sich nicht auf heute bezieht, sondern aus einer Zelle des Ausgangsfiles "64304" ausgelesen wird.
2.) trivial, aber ich hab schon Scheuklappen auf und steh im Wald....: am Ende des Makros möchte ich den Kursor auf die nächste freie Zeile in der Zieldatei setzen. Ich habs mit select probiert, aber der Kursor lässt sich nicht mal lieb bitten und bleibt an der Stelle, wo ich ihn willkürlich hingesetzt hab.
Ich hoffe, mich kann jemand aus meinem Dilemma befreien!
Vielen Dank für Eure Hilfe!
Liebe Grüsse,
Sonja