Jahreszahl an Dateinnamen hängen

Sehr geehrte Excel-Gemeinde,
ich habe einen leicht zu erklärenden Wunsch:
1 Tabelle / 2 Spalten
Spalte A: Dateiname Spalte B: Jahreszahl (JZ)
Ich möchte nun die JZ (aus Spalte B) an die Dateinamen (in Spalte A) anhängen (sollen aber auch in Spalte B erhalten bleiben).
Es sind natürlich immer andere JZ, Tabelle ist nach Spalte A alphabetisch sortiert.
Problem:
z. T. ist dies schon so, weil ich irgendwann anfing, die Liste so weiterzuführen.
Also sollten diese Zeilen so bleiben.
Mit meinem begrenzten Wissen glaube ich zu sehen, dass ein Makro die JZ auch an Dateinamen anhängt, welche schon eine JZ haben.
Falls ich mich unklar ausgedrückt habe, verzeiht es mir, dafür habe ich ein Beispiel angehängt:
https://www.herber.de/bbs/user/152002.xls
Ich hoffe, ihr könnt mir helfen.
Danke im voraus! Bleibt gesund!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Jahreszahl() Dim Sp As Integer, LR As Long, i As Long, Z1 As Integer Sp = 1 'Spalte A Z1 = 2 'wegen Überschrift With Sheets("Tabelle1") LR = .Cells(.Rows.Count, Sp).End(xlUp).Row 'letzte Zeile der Spalte For i = Z1 To LR If Not IsNumeric(Right(Trim(.Cells(i, Sp)), 4)) Then .Cells(i, Sp) = Trim(.Cells(i, Sp)) & " " & .Cells(i, Sp + 1) Else 'nur, wenn du die Leerzeichen hinten weghaben möchtest .Cells(i, Sp) = Trim(.Cells(i, Sp)) ' "" End If Next End With End Sub

Hallo
ich denke, das Ganze liegt an deiner Bedingten Formatierung.
Bei JEDER Änderung durch das Makro wird Diese immer neu berechnet.
Durch die Ergänzung schalte ich am Anfang mal alles ab und nachher wieder ein.


Sub Jahreszahl()
On Error GoTo Fehler
Const APPNAME = "Jahreszahl"
Dim Sp As Integer, LR As Long, i As Long, Z1 As Integer
Sp = 1 'Spalte A
Z1 = 1973 'Erste Zeile mit Daten
With Application
.EnableEvents = False
.ScreenUpdating = False
.Calculation = xlManual
End With
With Sheets("mp3")
LR = .Cells(.Rows.Count, Sp).End(xlUp).Row 'letzte Zeile der Spalte
For i = Z1 To LR
If Not IsNumeric(Right(Trim(.Cells(i, Sp)), 4)) Then
.Cells(i, Sp) = Trim(.Cells(i, Sp)) & " " & .Cells(i, Sp + 1)
Else                                            'nur, wenn du die Leerzeichen hinten weghaben möchtest
.Cells(i, Sp) = Trim(.Cells(i, Sp))         ' ""
End If
Next
End With
MsgBox "Fertig"
'*** Fehlerbehandlung
Err.Clear
Fehler:
If Err.Number  0 Then MsgBox "Fehler in Sub """ & APPNAME & """" & vbCrLf _
& "Fehlernummer: " & Err.Number & vbLf & Err.Description: Err.Clear
'*** Rücksetzen
With Application
.EnableEvents = True
.ScreenUpdating = True
.Calculation = xlCalculationAutomatic
End With
End Sub

Aber siehe dir die Bed. Formatierung trotzdem mal an.
Ziemlich zerhackt
Userbild

LG UweD

Beliebteste Forumthreads (12 Monate)

Jahreszahl an Dateinnamen hängen

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Jahreszahl an Dateinnamen hängen

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread