Anzeige
Archiv - Navigation
1608to1612
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

Worksheet Name überprüfen auf einen String

Worksheet Name überprüfen auf einen String
19.02.2018 12:13:51
Georg
Liebe Mitglieder
der folgende Code muss geändert werden, ich brauche nicht das Zählen der Worksheet, sondern
1. jedes Worksheet soll geprüft werden ob im Namen am Ende der String "2018" steht
2. Wenn ja soll der code ausgeführt werden, wenn nein das nächste Worksheet überprüfen.
Leider weiß ich nicht wie das umzusetzen ist. DANKE
Sub Springerhinzu()
Dim wbook As Workbook
Set wbook = ThisWorkbook
Dim i As Long
Dim WS_Count As Integer
WS_Count = ThisWorkbook.Worksheets.Count
For i = 4 To WS_Count
Sheets(i).Select
If range("C24").Value  "PufferSpringer" Then
Rows("24:24").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
range("E25:AT35").Select
Selection.Cut
range("E24").Select
ActiveSheet.Paste
range("B24").Select
ActiveCell.FormulaR1C1 = "Puffer Springer"
range("C24").Select
ActiveCell.FormulaR1C1 = _
"=IF(R[-8]C="""","""",SUM(R[-19]C[9]:R[-19]C[16])*ZeitwertSpringer)"
range("B25").Select
ActiveWindow.SmallScroll Down:=3
range("C27").Select
ActiveCell.FormulaR1C1 = "=ROUNDUP(SUM(R[-7]C:R[-3]C,R[-1]C),0)"
range("C28").Select
End If
Next i
End Sub

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Worksheet Name überprüfen auf einen String
19.02.2018 12:21:42
Matthias
Hallo
nach: For i = 4 To WS_Count
If Right(Worksheets(i).Name, 4) = "2018" Then
Gruß Matthias
Anzeige

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige