Fehlermedlung..

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Peter,
noch immer ist unklar, was deine Formulare sind, Tabellenbl?tter oder Userforms. Gehe aber davon aus, dass es sich um Tabellen handelt. Ein Weg k?nnte sein, in einer Schleife den eingegebenen Namen mit allen vorhandenen Blattnamen zu vergleichen und mit einer boolschen Variable die Schleife zu verlassen:


Sub Blatt_Vorhanden()
Dim bolBlattDa As Boolean
Dim iSheetCount As Integer
Dim strSheetUpdate As String
'Namen des upzudatenden Blattes einlesen
'steht hier in C2
strSheetUpdate = Cells(2, 3)
'Schleife ?ber alle Bl?tter
For iSheetCount = 1 To Sheets.Count
If Sheets(iSheetCount).Name = strSheetUpdate Then
bolBlattDa = True
Exit For
End If
Next
If bolBlattDa Then
'mach was immer du willst
Else
MsgBox "Blatt nicht vorhanden"
End If
End Sub

Gru?
Peter

Sub Blatt_Vorhanden() Dim bolBlattDa As Boolean Dim iSheetCount As Integer Dim strSheetUpdate As String 'Namen des upzudatenden Blattes einlesen 'steht hier in C2 strSheetUpdate = Cells(2, 3) 'Schleife ?ber alle Bl?tter For iSheetCount = 1 To Sheets.Count If Sheets(iSheetCount).Name = strSheetUpdate Then bolBlattDa = True Exit For End If Next If bolBlattDa Then 'mach was immer du willst 'und am Ende MsgBox "Sheets " & Sheets(iSheetCount).Name & " has been updated" Else MsgBox "Blatt nicht vorhanden" End If End Sub

Also,
ich habe zwei Formular:
1)Mit hilfe des ersten werden neue Sheets zu bestimmten Companies erstellt. Die namen der Sheets kann in dem Formular festgelegt werden., z.b. MS fuer Microsoft
2)mit hilfe des zweiten Formulars werden die vorhadnen sheets geupdated. Z.B. Bilanzdaten der 4 Quartale werden verschobenund das juensgte wird neu eingeben.
In dem Updateformular muss man dann wieder angeben, welches der vielen Sheets man denn updaten moechte. Soweit funzt auch alles nur wenn man im Updateformular einen Sheetnamen eingibt, der nicht in der Mappe existiert, dann gehts zum debugger und dasn wuerde ich gerne durch eine Fehlermeldung ersetzten.
Gruss Peter
PS: Habe im ersten tread mappe und arbeitsblatt vertauscht, da ich nur mit der englsihen version arbeite. Ich bin jetzt einfahc bei den Englsihen begriffen geblieben.

Sub Blatt_Vorhanden() Dim bolBlattDa As Boolean Dim iSheetCount As Integer Dim strSheetUpdate As String 'Namen des upzudatenden Blattes einlesen 'steht hier in C2 strSheetUpdate = Cells(2, 3) 'Schleife ?ber alle Bl?tter For iSheetCount = 1 To Sheets.Count If Sheets(iSheetCount).Name = strSheetUpdate Then bolBlattDa = True Exit For End If Next If bolBlattDa Then 'mach was immer du willst Else MsgBox "Blatt nicht vorhanden" End If End Sub

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Fehlermedlung..

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

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread