Warum hängt sich Excel bei folgendem Code auf?

Hallo,
ich habe leider kaum VBA Kenntnisse, benötig es aber für ein Projekt und habe dann mit Hilfe von Google und Try and Error den Code des folgenden Dummys erstellt.
Gedanke dahinter ist, dass man auf dem Tabellenblatt 1 den Energieträger, das Betriebsjahr und den Monat per Dropdown auswählt. Excel soll sich dann automatischen die dazugehörigen Werte aus Tabelle 2 suchen. Habe versucht das ganze mit HLOOKUP umzusetzen. Hat soweit auch geklappt und ich kann mit den Werten weiterrechnen. Sobald ich mir allerdings mehr als eins der drei Zwischenergebnisse zur Kontrolle ausgeben lasse, hängt sich Excel sofort auf.
Kann mir jemand sagen woran das liegt?
Hier der Dummy: https://www.herber.de/bbs/user/134081.xlsm
Vielen Dank für eure Hilfe
Fabian

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) 'Energieträger auswählen If Range("D2").Value = "Solare Strahlungsenergie" Then 'Werte zu gewähltem Bundesland finden Dim B As String B = Range("G2") Dim BB As Variant BB = WorksheetFunction.HLookup(B, Sheets("Tabelle2").Range("B6:Q7"), 2, False) 'Werte zu Inbetriebnahmejahr finden Dim J As Long J = Range("G5") Dim JJ As Variant JJ = WorksheetFunction.HLookup(J, Sheets("Tabelle2").Range("B2:S3"), 2, False) 'Werte zu Inbetriebnahmenmonat finden Dim M As String M = Range("G6") Dim MM As Variant MM = WorksheetFunction.HLookup(M, Sheets("Tabelle2").Range("B10:M11"), 2, False) 'gefunden Werte ausgeben Range("D12").Value = BB Range("D13").Value = JJ Range("D14").Value = MM End If End Sub

Hallo,
du mußt den Bereich, bei dem bei Änderung der Code ausgelöst wird, auf den Bereich deiner DropDown Zellen beschränken. Dann brauchst du kein ApplicationEvents = False bzw. True nicht.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim raBereich As Range
Set raBereich = Range("D2,G2:G5")
'Energieträger auswählen
If Not Intersect(Target, raBereich) Is Nothing Then
If Range("D2") Like "Solar*" Then
'Werte zu gewähltem Bundesland finden
Range("D12") = WorksheetFunction.HLookup(Range("G2"), Sheets("Tabelle2") _
.Range("B6:Q7"), 2, False)
'Werte zu Inbetriebnahmejahr finden
Range("D13") = WorksheetFunction.HLookup(Range("G5"), Sheets("Tabelle2") _
.Range("B10:M12"), 2, False)
'Werte zu Inbetriebnahmenmonat finden
Range("D14") = WorksheetFunction.HLookup(CLng(Range("G4")), Sheets("Tabelle2") _
.Range("B2:S3"), 2, False)
End If
End If

Und deine ganzen Variablen brauchst du doch auch nicht, du kannst doch das Ergebnis des Loopup direkt in die Zellen schreiben lassen.
Gruß Werner

Beliebteste Forumthreads (12 Monate)

Warum hängt sich Excel bei folgendem Code auf?

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

112 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Warum hängt sich Excel bei folgendem Code auf?

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

112 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread