Anzeige
Archiv - Navigation
1640to1644
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Laufzeitfehler 5

Laufzeitfehler 5
28.08.2018 11:01:01
Georg
Liebe Mitglieder,
der Code gibt mir den Laufzeitfehler 5 bei
.Sheets(i).....
aus. Ich komme nicht drauf. Die Blätter sollen umbenannt werden, mit einer Verknüpfung aus zwei Zellen, die Text enthalten.
Danke für die Tipps
Sub RegRename()
Dim i As Long
Dim wb As Workbook
Set wb = ThisWorkbook
With wb
For i = 1 To 12
.Sheets(i).Name = .Worksheets(i).Cells("B4" & "B3").Text
Next i
End With
End Sub

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Laufzeitfehler 5
28.08.2018 11:06:06
ChrisL
Hi
z.B.
Sub RegRename()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Name = ws.Range("B4") & ws.Range("B3")
Next ws
End Sub
cu
Chris
Danke an alle
28.08.2018 11:13:41
Georg
... für die Hinweise und Erläuterungen, wieder was dazugelernt.
AW: Laufzeitfehler 5
28.08.2018 11:07:59
EtoPHG
Hallo Georg,
1. ist das ...Cells("B4" & "B3")... eine nicht valide Adresse! Das wäre als ob du in eine Zelle die Formel =B4B3 eingeben würdest! Wenn schon müsste es heissen:
.Worksheets(i).Range("B4").Text & .Worksheets(i).Range("B3").Text

2. ABER: da die Zellinhalte aus den Quellen währende des Codedurchlaufs statisch bleiben, würdest du versuchen jede Blatt gleich zu benennen, was zu einem erneuten Fehler führen wird!
Gruess Hansueli
Anzeige
Vergiss 2. ABER, Falschannahme meinerseits (owT)
28.08.2018 11:09:39
EtoPHG

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige