ich habe in meiner Excel Datei ein Makro wodurch mir alle Blätter (bis auf Übersicht, Massen und Preis) ausgewählt werden. Das Funktioniert auch tatellos.
'Blätterauswählen
Dim arrBlatt() As String, iIndex As Long, objWb As Workbook, objWks As Worksheet
Set objWb = ActiveWorkbook
iIndex = 0
For Each objWks In objWb.Worksheets
Select Case objWks.Name
Case "Übersicht", "Massen", "Preis"
'Blattnamen der Ausnahmen
Case Else
iIndex = iIndex + 1
ReDim Preserve arrBlatt(1 To iIndex)
arrBlatt(iIndex) = objWks.Name
End Select
Next
If iIndex > 0 Then
objWb.Sheets(arrBlatt).Select
End If
Jetzt möchte ich aber noch eine Bedingung mit einfügen. Und zwar wenn im Tabellenblatt "Übersicht" ab der Spalte G7 nichts steht sollen die Blätter (in der Spalte A befindet sich der gleiche Name wie die Blätter haben) nicht mit ausgewählt werden.Ich hoffe es ist einigermasen verständlich ausgedrückt was ich vor habe.
MfG Markus