Nach Sheet namen suchen und Formel erstellen

Hallo zusammen,
ich möchte in verschiedenen Worsheets dessen Vorhandensein vor dem öffnen nicht bekannt ist, in immer der gleichen Zelle (HK613) die Formel =STDEV(HK$5:HK$604) schreiben. Wie kann ich mittels VB nach bestimmenten worksheet namen suchen, und wenn vorhanden die Formel dort reinschreiben?
Möglichkeiten sind: Data Base & Results (Formel wäre: =STDEV(HK$5:HK$604)
Es könnten aber auch die sheets : Cluster 1 Cluster 2 Cluster 3 usw vorhanden sein... (Formel wäre dann:
=STDEV('Cluster 1'!HJ5:HJ604;'Cluster 2'!HJ5:HJ604;'Cluster 3')
Klingt komplex? Ist es für mich auch....
Ich versuche es nochmal mit anderen Worten: Ich habe eine Tabelle wo mittel einem Tool weitere sheets erzeugt werden. Ich will nun in einer dieser Tabelle die Standardabweichung (STDEV) aller Werte der vorhandenen Tabellen ermitteln. Und ich weiß nun vorher nicht wieviele jeweils vorhanden sind... Ist es eine, drei oder 6 mit dem Namen Cluster # .
Ich hoffe ihr könnt mir helfen...
Danke, gruß und ein schönes Wochenende
Dirk

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Makro1() Dim sh As Worksheet Dim FormelText As String On Error Resume Next Set sh = Sheets("Data Base & Results") On Error GoTo 0 If sh Is Nothing Then For Each sh In ThisWorkbook.Worksheets If sh.Name Like "Cluster*" Then FormelText = FormelText & ";'" & sh.Name & "'!HJ5:HJ604" _ Next If FormelText "" Then FormelText = "=STDEV(" & Mid$(FormelText, 2) & ")" For Each sh In ThisWorkbook.Worksheets If sh.Name Like "Cluster*" Then sh.Range("HK613").FormulaLocal = FormelText Next End If Else sh.Range("HK613").FormulaLocal = "=STDEV(HK$5:HK$604)" End If End Sub

Option Explicit Sub STDEV_Formel() Dim ii As Integer, strF As String For ii = 0 To 9 If WorksheetEx("Cluster " & ii) Then If Len(strF) > 0 Then strF = strF & "," strF = strF & "'" & "Cluster " & ii & "'!HJ5:HJ604" End If Next ii If Len(strF) > 0 Then Range("HK613").Formula = "=STDEV(" & strF & ")" End Sub Function WorksheetEx(strNam As String) As Boolean On Error Resume Next WorksheetEx = Worksheets(strNam).Index > 0 End Function

Hi Dirk,
dann vielleicht so?


Option Explicit
Sub STDEV_Formel()
Dim ii As Integer, strF As String
If WorksheetEx("Data Base & Results") Then
Worksheets("Data Base & Results").Range("HK613").Formula = "=STDEV(HK$5:HK$604)"
ElseIf WorksheetEx("Cluster 1") Then
strF = "'Cluster 1'!HJ5:HJ604"
ii = 2
While WorksheetEx("Cluster " & ii)
strF = strF & ",'" & "Cluster " & ii & "'!HJ5:HJ604"
ii = ii + 1
Wend
Worksheets("Cluster 1").Range("HK613").Formula = "=STDEV(" & strF & ")"
Else
MsgBox "Die Mappe enthält weder Blatt 'Data Base & Results'" & vbLf & _
"noch Blatt 'Cluster 1'.", vbCritical
End If
End Sub
Function WorksheetEx(strNam As String) As Boolean
On Error Resume Next
WorksheetEx = Worksheets(strNam).Index > 0
End Function

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Beliebteste Forumthreads (12 Monate)

Nach Sheet namen suchen und Formel erstellen

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

317 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Nach Sheet namen suchen und Formel erstellen

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

317 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread