Office: (Office 2007) Nur bestimmte Tabellenblätter ansprechen

Monty Burns · 28. Februar 2009

Hallo

Ich habe folgende Zeile:

Code:

For Each wks In Workbooks("Test1.xls").Worksheets
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Damit:
...spreche ich sämtliche Tabellen an.

Ich möchte:
...aber nur bestimmte Tabellen ansprechen.

Beispiel:
"Tabelle5" "Tabelle7" "Tabelle9"

Wie macht man das?

:)

hary · 2. März 2009

Hi Monty
Letzte Nachtschicht die ich habe!!!!
auf Deinen Code bezogen zB. so

For Each wks In Workbooks("Test1.xls").Worksheets
if wks.Name = "Tabelle5" then
usw
end if
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

kann man auch zusammenfassen mit Union
Union(wks("Tabelle2"),wks("Tabelle4"))
Kommt immer drauf an was man damit machen will
Gruss Hary

Monty Burns · 2. März 2009

Hallo Hary

Vielen Dank für die Antwort!
Ich glaube Union ist das richtige, da ich nicht nur 1 sondern mehrere Tabellenblätter ansprechen möchte. Wie sieht da die Syntax aus???

Gruß

- Monty Burns -

hary · 2. März 2009

Hi
das mit Union war aus einem anderen Zusammenhang(mehrere Bereiche).
Koenntest es hoechstens mit array versuchen.
Sheets(Array("Tabelle1","Tabelle3","Tabelle5"))
Ich Persoenlich nehme, wenns nicht viele Tabellen sind, diese immer einzeln.
mit array habe ich aber noch nicht viel probiert. Das muesstest Du mal austesten.
Gruss hary

Monty Burns · 2. März 2009

Hallo Hary

Vielen Dank für den Hinweis. Mit der anderen Version weiß ich allerdings genauso wenig anzufangen, da ich dir richtige Syntax nicht kenne...
Also:

Ich habe:
Code:

For Each wks In Workbooks("Test1.xls").Worksheets
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gibt es eine Möglichkeit, diese Zeile so zu ersetzen, daß man nur 3 bestimmte Tabellenblätter anspricht?

Hier der gesamte Code:

Code:

Sub SchauspielerSuchen()
Dim wks As Worksheet
Dim rng As Range
Dim vntFirstAddress As Variant
Dim vntArray As Variant
Dim lngI As Long
Dim vntGesucht As Variant
Dim rngGefunden As Range
Dim Eingabe As Variant
Dim Tabname As String
Dim start As Variant
Dim i As Variant
Dim lngZiel As Long

Workbooks("Test1.xls").Worksheets("Tabelle1").Range("A:B").ClearContents
Workbooks("Test1.xls").Worksheets("Tabelle1").Range("C6:C7").ClearContents
Workbooks("Test1.xls").Worksheets("Tabelle1").Range("A:B").Interior.ColorIndex = 0

nochmal:
Eingabe = InputBox("Geben Sie hier Ihren Suchbegriff ein, Sir!", vbQuestion + vbOKCancel)
If StrPtr(Eingabe) = 0 Then
Exit Sub
End If
If Eingabe = "" Then
GoTo nochmal
End If
vntGesucht = Eingabe
ReDim vntArray(1, 0) As Variant
vntArray(1, 0) = 1000000000 '"Nichts gefunden"
lngI = -1
For Each wks In Workbooks("Test1.xls").Worksheets

Set rng = wks.UsedRange

Set rngGefunden = rng.Find(vntGesucht, LookIn:=xlValues, LookAt:=xlPart)
If Not rngGefunden Is Nothing Then
vntFirstAddress = rngGefunden.Address
Do
lngI = lngI + 1
ReDim Preserve vntArray(1, lngI) As Variant
vntArray(0, lngI) = wks.Name
vntArray(1, lngI) = rngGefunden.Address
Set rngGefunden = rng.FindNext(rngGefunden)
Loop While Not rngGefunden Is Nothing And rngGefunden.Address vntFirstAddress
End If
Next
lngZiel = 1
For lngI = 0 To UBound(vntArray, 2)
i = vntArray(1, lngI)
If i = 1000000000 Then
Exit Sub
End If
start = vntArray(1, lngI)
start = Replace(start, "$A$", "")
Tabname = vntArray(0, lngI)
With Workbooks("Test1.xls")
.Worksheets("Tabelle1").Cells(lngZiel, 1).Value = ("Der gesuchte Schauspieler...")
.Worksheets("Tabelle1").Cells(lngZiel, 1).Interior.ColorIndex = 4
.Worksheets("Tabelle1").Cells(lngZiel + 1, 1).Value = Workbooks("Test1.xls").Worksheets(Tabname).Range("A" & start).Value
Workbooks("Test1.xls").Worksheets(Tabname).Range("D" & start).Value
End With
lngZiel = lngZiel + 2
Next lngI

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß

- Monty Burns -

EarlFred · 2. März 2009

Hallo Monty,

ohne Deinen Code im Detail gelesen zu haben als Beispiel:

Code:

For Each wks In Sheets(Array("Tabelle1", "Tabelle3", "Tabelle5"))
sh.Activate
Next wks
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Grüße
EarlFred

hary · 2. März 2009

Guten Morgen Monty
hab nicht soviel Zeit, da auf'e Arbeit
nimm mal eine neue Mappe mit 4 Blaettern und fuege das Makro ein.

Sub eintrag()
Dim ws As Worksheet
For Each ws In Worksheets
If ws.Name = "Tabelle2" Or ws.Name = "Tabelle4" Then
ws.Cells(1, 1) = "sssssss"
End If
Next
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

gruss Hary
vieleicht hilfts weiter

Monty Burns · 2. März 2009

Hallo Hary

Vielen Dank! Ich probier´das mal aus.

Gruß

- Monty Burns -

Office: (Office 2007) Nur bestimmte Tabellenblätter ansprechen

Nur bestimmte Tabellenblätter ansprechen

Nur bestimmte Tabellenblätter ansprechen

Nur bestimmte Tabellenblätter ansprechen

Nur bestimmte Tabellenblätter ansprechen

Nur bestimmte Tabellenblätter ansprechen - Similar Threads - bestimmte Tabellenblätter ansprechen

Wertübernahme in Tabellenblatt bei bestimmter Bedigung

Bestimmte Daten in neues Tabellenblatt übernehmen, ohne Leerzeichen

Zeilen aufgrund von bestimmten Informationen in anderes Tabellenblatt kopieren

Bestimmte Inhalte mehrerer Tabellenblätter auf separatem Blatt darstellen

Zeilen mit bestimmten Inhalt in anderes Tabellenblatt kopieren

VBA bestimmte Tabellenblätter separat speichern

bestimmte Daten sortiert in zweites Tabellenblatt einfügen