Zu kompliziert für mich
11.04.2023 14:09:14
Michafox
Ein HALLO an alle in diesem Forum
Ich habe für unsern Sportverein eine Tabelle mit Daten erstellt, hier sollen 50 Zellen, nacheinander, eine besimmte Zahl eingegeben werden.
Jede Zahl passt für ein bestimmes Gewässer (1500) dieser Text soll in eine andere Zelle geschrieben werden.
Mit der ersten Abfrage klappt alles wunderbar, aber dann haperts mit der zweiten eingabe.
Wenn ich es so mache dann würde im Worksheet 50 Einträge mal 1500 Antworten stehen, geht das überhaupt.
Ich hoffe es gibt einen anderen Weg.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) ZahlAusZelleB1 = Range("B1").Value 'Diese Abfrage auf weitere 50 Zellen Select Case ZahlAusZelleB1 Case 1421001: Range("C6").Value = "Alter Kanal" Case 1421002: Range("C6").Value = "Neuer Kanal" Case 1421003: Range("C6").Value = "Heidesee" Case 1421004: Range("C6").Value = "Angersdorfer Teich" 'Hier würden noch 1500 Gewässer stehen Case Else Range("C6").Value = "Keine Gewässernummer" End Select ZahlAusZelleD1 = Range("D1").Value Select Case ZahlAusZelleD1 Case 1421001: Range("E6").Value = "Alter Kanal" Case 1421002: Range("e6").Value = "Neuer Kanal" Case 1421003: Range("e6").Value = "Heidesee" Case 1421004: Range("e6").Value = "Angersdorfer Teich" 'Hier würden noch 1500 Gewässer stehen Case Else Range("e6").Value = "Keine Gewässernummer" End Select ZahlAusZelleF1 = Range("F1").Value Select Case ZahlAusZelleF1 Case 1421001: Range("G6").Value = "Alter Kanal" Case 1421002: Range("G6").Value = "Neuer Kanal" Case 1421003: Range("G6").Value = "Heidesee" Case 1421004: Range("G6").Value = "Angersdorfer Teich" 'Hier würden noch 1500 Gewässer stehen Case Else Range("G6").Value = "Keine Gewässernummer" End Select End Sub
Ich hoffe mir kann jemand helfen.