VBA Tabellenname als Variabel
02.03.2023 11:56:26
Mia
ich habe eine Frage zu einer Excel-Programmierung. In Zelle B1 habe ich ein DropDown Menü. Aus diesem DropDown lese ich einen Namen aus und schreibe ihn in eine Variable. Dieser Name soll dann in einem Code weiterverwendet werden aber ich bekomme den Laufzeitfehler 13 - Typen unverträglich. Gelb markiert wird mir beim debuggen die Zeile blattname = Range("B1").Value
Könnt ihr mir weiterhelfen? Meine VBA-Kenntnisse sind leider nicht besonders gut und ich komme alleine nicht weiter.
Das ist mein Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" Then
Call CountryInformation
End If
End Sub
Sub CountryInformation()
Dim blattname() As String
blattname = Range("B1").Value
With Worksheets("Auswahl Land")
.Cells(4, 2).Value = Worksheets(blattname).Cells(3, 2)
.Cells(5, 2).Value = Worksheets(blattname).Cells(4, 2)
.Cells(6, 2).Value = Worksheets(blattname).Cells(5, 2)
.Cells(7, 2).Value = Worksheets(blattname).Cells(6, 2)
.Cells(8, 2).Value = Worksheets(blattname).Cells(7, 2)
.Cells(9, 2).Value = Worksheets(blattname).Cells(8, 2)
End With
End Sub