Werte in Excel importieren und Zeilen ausblenden

Question

Hallo liebes Forum,

ich habe Folgendes vor: in eine Excel-Datei (Tabelle "Import") Werte aus einer .xml Datei importieren. Dafür habe ich folgendes Makro, leider nicht selbst geschrieben, im Forum gefunden (an dieser Stelle vielen Dank an den Autor!):

Option Explicit
Dim Stamm As String
Dim varFile As Variant
Dim varName As Variant
Dim Blatt As String
Dim LastValue As Variant
Dim Target As Range


Public Sub Dateien()
On Error GoTo Err
Stamm = ActiveWorkbook.Name
varFile = Application.GetOpenFilename("Excel Files (*.xml), *.xml", , "XML", "Auswahl", False)
If TypeName(varFile) Like "Boolean" Then
MsgBox "Keine Datei gewahlt!", vbInformation
Exit Sub
Else

varName = Right$(varFile, Len(varFile) - InStrRev(varFile, "\"))
Workbooks.Open varFile
Workbooks(varName).Sheets("Import").Range("A1:S50").Copy
Workbooks(Stamm).Sheets("Import").Range("A1:S50").PasteSpecial xlPasteValues
Workbooks(varName).Close
Application.CutCopyMode = False

End If
Exit Sub
Err:
Call MsgBox("Bitte uberpruffen ob die Tabelle" _
& vbCrLf & "Import vohanden ist 1" _
, vbExclamation, "Fehler")

End Sub

In Tabelle 2 "Layout" möchte ich als Ausgangssituation die Zeilen 67:355 ausgeblendet haben.
In Abhängigkeit von den importierten Werten ( Tabelle "Import", Spalte G, ab Zeile 17, Anzahl der befüllten Zeilen variierend) sollen bestimmte Zeilen wieder eingeblendet werden.
Beispiel:
wenn G17 ("Import") = leer, dann Zeilen 67:355 in ("Layout") ausgeblendet;
wenn G17 ("Import") = "gelb" dann Zeilen 72:75 in ("Layout") eingeblendet;
wenn G17 ("Import") = "blau" dann Zeilen 107:110 in ("Layout") eingeblendet;
wenn G17 ("Import") = "orange" dann Zeilen 177:180 in ("Layout") eingeblendet;
wenn G17 ("Import") = "grau" dann Zeilen 267:270 in ("Layout") eingeblendet;
Es gibt nur diese 5 Möglichkeiten die in einer Auswahlliste in der Ursprungsdatei zur Verfügung stehen.
Es soll geprüft werden ob in den Folgezellen, also G18, G19, G20 etc. Werte stehen, bis zur nächsten leeren Zelle. Wenn Werte vorhanden dann soll wie im Beispiel oben vorgegangen werden nur jeweils die nächsten 5 Zeilen, Bsp:
wenn G18 ("Import") = "gelb" dann Zeilen 76:80 in ("Layout") eingeblendet;

Dafür habe ich folgendes Makro gefunden/angepasst (hat auch vor dem "Importieren-Makro" zumindest für die Zelle G17 funktioniert, jetzt nicht mehr). Weiß auch nicht wie ich es auf andere Zellen anwenden kann :-(
Im unteren Bsp werden immer 2 Bereiche ein/ausgeblendet, da sind noch die Überschriften, aber das kann ich dann hoffentlich selbst anpassen...

Public Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Target.Address(0, 0) <> "G17" Then Exit Sub

Select Case Target
Case ""
Worksheets("Layout").Range("A67:A355").EntireRow.Hidden = True
End Select

Select Case Target
Case "gelb"
Worksheets("Layout").Range("A68:A70").EntireRow.Hidden = False
Worksheets("Layout").Range("A71:A75").EntireRow.Hidden = False
Case Else
Worksheets("Layout").Range("A68:A70").EntireRow.Hidden = True
Worksheets("Layout").Range("A71:A75").EntireRow.Hidden = True
End Select

Select Case Target
Case "blau"
Worksheets("Layout").Range("A103:A105").EntireRow.Hidden = False
Worksheets("Layout").Range("A106:A110").EntireRow.Hidden = False
Case Else
Worksheets("Layout").Range("A103:A105").EntireRow.Hidden = True
Worksheets("Layout").Range("A106:A110").EntireRow.Hidden = True
End Select

Select Case Target
Case "orange"
Worksheets("Layout").Range("A168:A170").EntireRow.Hidden = False
Worksheets("Layout").Range("A171:A175").EntireRow.Hidden = False
Case Else
Worksheets("Layout").Range("A168:A170").EntireRow.Hidden = True
Worksheets("Layout").Range("A171:A175").EntireRow.Hidden = True
End Select

Select Case Target
Case "grau"
Worksheets("Layout").Range("A263:A265").EntireRow.Hidden = False
Worksheets("Layout").Range("A266:A270").EntireRow.Hidden = False
Case Else
Worksheets("Layout").Range("A263:A265").EntireRow.Hidden = True
Worksheets("Layout").Range("A266:A270").EntireRow.Hidden = True
End Select
Application.ScreenUpdating = True

End Sub

Wie gesagt die Datei wird mit dem ersten Makro importiert (funktioniert wunderbar!) aber das ein/ausblenden Makro "greift" nicht, ich glaube die importierte Zelle wird als leer "wahrgenommen". Dazu muss ich sagen, dass ich die beiden Sub's einfach untereinander reinkopiert habe.

Vielen lieben Dank im Voraus!

LG,
Liana

Ich gebe zu, ich habe keine Ahnung von VBA, aber ich würde sehr gerne lernen!