Suche Rettung bezüglich Excel Visual Basic Aufgabe

Hallo!
Ich habe ein riesen Problem! Wir haben einen neuen Kurs in der Uni und ich verstehe das überhaupt nicht.
Falls mir jemand einen Ansatz geben könnte oder eine kurze Erläuterung , wäre ich echt dankbar!
Also:
Das ist die Aufgabe...
Erstellen Sie eine Prozedur Ergaenze_Namen, die
zur Eingabe eines Strings auffordert
alle Tabellennamen um den String (als Suffix ) ergänzt.
Das einzige was ich verstanden hab ist, dass man dies mit Hilfe einer Schleife anfertigen muss, sowie die Befehle "sheets.activate und sheets.count" benutzen sollte.
1. kann ich nur die erste tabelle umbenennen - aber auch nur komplett
2. keine ahnung wie ich die sheets durchzaehle in der schleife...
des weiteren:
Erweiterung:
Erweitern Sie die Prozedur Ergaenze_Namen so,
Dass der Anwender zusätzlich zur Eingabe eines Codes aufgefordert wird, der angibt, ob es sich bei dem eingegebenen String um ein Suffix (S) oder Präfix (P) handelt,
Und die Prozedur bei Eingabe des Codes P den Tabellennamen um den String als Präfix und bei Eingabe des Codes S den Tabellennamen um den String als Suffix ergänzt.
Wenn mir jemand einen Lösungsvorschlag geben könnte, würde mir das zumindest fuer diese woche mein Leben retten!
Vielen Dank,
Goldy

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Ergaenze_Namen_2() Dim zusatz As String Dim code As String Dim a As Integer zusatz = InputBox("Bitte Namenszusatz eingeben:") code = InputBox("Präfix [P] oder Suffix [S]?") Select Case code Case "P" For a = 1 To Sheets.Count Sheets(a).Name = zusatz & Sheets(a).Name Next a Case "S" For a = 1 To Sheets.Count Sheets(a).Name = Sheets(a).Name & zusatz Next a End Select End Sub

Hi,
also, hier die neueste Version:
Public praefix As String
Public suffix As String


Sub Ergaenze_Namen_2()
Dim zusatz As String
Dim code As String
Dim a As Integer
Dim basis_laenge As Integer
zusatz = InputBox("Bitte Namenszusatz eingeben:")
code = InputBox("Präfix [P] oder Suffix [S]?")
Select Case code
Case "P"
For a = 1 To Sheets.Count
basis_laenge = Len(Sheets(a).Name) - Len(praefix)
Sheets(a).Name = zusatz & Right(Sheets(a).Name, basis_laenge)
Next a
praefix = zusatz
Case "S"
For a = 1 To Sheets.Count
basis_laenge = Len(Sheets(a).Name) - Len(suffix)
Sheets(a).Name = Left(Sheets(a).Name, basis_laenge) & zusatz
Next a
suffix = zusatz
End Select
End Sub

so würde ich das lösen;
ich bin dann mal über meinen Schatten gesprungen, und hab das ganze Deinem Prof zu liebe noch mit while-Schleife und activate programmiert, das sieht dann so aus:
Public praefix As String
Public suffix As String


Sub Ergänze_Namen_fuer_Prof()
Dim zusatz As String
Dim code As String
Dim a As Integer
Dim basis_laenge As Integer
a = 1
zusatz = InputBox("Bitte Namenszusatz eingeben:")
code = InputBox("Präfix [P] oder Suffix [S]?")
Select Case code
Case "P"
Do While a <= Sheets.Count
Sheets(a).Activate
basis_laenge = Len(ActiveSheet.Name) - Len(praefix)
ActiveSheet.Name = zusatz & Right(ActiveSheet.Name, basis_laenge)
a = a + 1
Loop
praefix = zusatz
Case "S"
Do While a <= Sheets.Count
Sheets(a).Activate
basis_laenge = Len(ActiveSheet.Name) - Len(suffix)
ActiveSheet.Name = Left(ActiveSheet.Name, basis_laenge) & zusatz
a = a + 1
Loop
suffix = zusatz
End Select
End Sub

Wenn Du den zweiten Code irgendjemand unter Angabe seiner Herkunft zeigst, dann erwähne bitte, dass ich dies nur unter Protest so programmiert habe;
select und activate sind deshalb so verbreitet, weil der Makro-Rekorder nicht ohne sie auskommt; wer sich also das Programmieren mittels Rekorder aneignet, der fängt automatisch mit der ganzen Selektiererei an. Für Einsteiger isses vielleicht auch einfacher, sich den Programmablauf vorzustellen, wenn im Code explizit drin steht:
"jetzt fassen wir Tabelle1 an
und dann machen wir mit dieser Tabelle dies und jenes"
Allerdings wird der Code durch sowas schnell unübersichtlich und auch langsamer; ausreichend ist völlig, zu sagen
"tu dies und jenes mit Tabelle1"
ohne sie extra in die Hand zu nehmen, sprich zu selektieren.
Schönen Gruß,
Andi

Private Sub Ergaenze_Namen() Dim strSuffix As String Dim wks As Worksheet strSuffix = InputBox("Suffix eingeben!") On Error Resume Next For Each wks In Worksheets wks.Name = wks.Name & strSuffix Next End Sub

Private Sub Ergaenze_Namen_Erweitert() Dim strFix As String, strPS As String Dim wks As Worksheet strFix = InputBox("Suffix/Präfix eingeben!") strPS = UCase(InputBox("Suffix oder Präfix? (P/S)")) On Error Resume Next For Each wks In Worksheets wks.Name = IIf(strPS = "P", strFix, "") & wks.Name & IIf(strPS = "S", strFix, "") Next End Sub

Beliebteste Forumthreads (12 Monate)

Suche Rettung bezüglich Excel Visual Basic Aufgabe

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Suche Rettung bezüglich Excel Visual Basic Aufgabe

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