Strings vorne und hinten kappen und KGrösste
27.04.2004 23:50:38
Fritz Sanne
Ich habe mal wieder ein Problem.
In Spalte A meiner Tabelle Daten stehen Aktenzeichen, zur Zeit noch im Format z.B. 33/04, 45/04, 95/99 u.s.w.
Mit Teilen des unten stehenden Codes habe ich es auch geschafft, den laufenden Jahrgang zu ermitteln und dann über die Funktion Kgrößte +1 das neue Aktenzeichen für einen neuen Datensatz zu erstellen.
Nun möchte ich dem Aktenzeichen aber ein FA als Suffix davorstellen.
Meine Frage ist: Wie kann ich die beiden Instr verbinden, damit in meiner Hilfsspalte columns(98) weder 04 rechts vor meinem gesuchten Wert steht, und FA links von ihm?
Hier meine Bastelarbeit dazu:
Sub Neues_Aktenzeichen_Erstellen()
Dim bereich As Range, Bereich1 As Range, zelle As Range
Dim AZ As String, AZ2 As String
Dim zeichen As Integer, Leerzeichen As Integer
Dim Wert As Single
Sheets("Daten").Activate
Set bereich = Range("A:A")
For Each zelle In bereich
If IsEmpty(zelle) Then Exit For
If Right(zelle, 2) = Format(Date, "yy") And Left(zelle, 2) = "FA" Then
If Not IsEmpty(zelle) Then
zeichen = InStr(zelle, "/")
Leerzeichen = InStr(zelle, " ")
AZ = Left(zelle, zeichen - 1)
AZ2 = Mid(zelle, Leerzeichen + 1)
zelle.Offset(0, 98) = AZ
End If
End If
Next zelle
Set Bereich1 = Range("CU:CU")
Wert = Application.WorksheetFunction.Large(Bereich1, 1) + 1
AZ = Wert & "/" & Format(Date, "YY")
Range("CU:CU").Clear
Range("A2").Select
Selection.EntireRow.Insert
Selection.Font.Bold = False
Selection.RowHeight = 13
Range("A2").Value = "FA " & Wert & "/" & Format(Date, "YY")
'MsgBox "FA " & Wert & "/" & Format(Date, "YY")
FelderFüllen
End Sub
Ohne Eure Hilfe hänge ich sonst wohl wieder die ganze Nacht an dem Problem.
Ich bedanke mich schon mal ganz herzlich.
Fritz