Var. Bereich finden - Zellen dazwischen
11.09.2021 10:28:36
Jem
ich habe folgendes Problem:
Ich versuche über eine Userform einen Variablen Bereich zu finden, welcher über ein Datum, bzw zwei Daten gefunden wird.
Combobox1 = Datum1 ; Combobox2 = Datum2
Damit finde ich dann 2 Spalten.
Ich möchte aber auch noch eine dritte Variable dazu finden, z.B. x, welches die Zeile darstellen soll.
Das mache ich über die Combobox3 = Name
Mein Ziel ist es, mit diesen 3 Variablen einen Bereich festzulegen, bei dem ich den Zelleninhalt zwischen den beiden Daten in Zeile x ändern kann.
Also zum Beispiel:
Combobox1= 11.11.2021
Combobox2= 15.11.2021
Combobox3= Klaus
Der Name Klaus befindet sich z.B. in Zeile 20, Combobox1 in Spalte LH und Combobox2 in Spalte LL.
Jetzt möchte ich den Bereich zwischen Spalte LH und LL in Zeile 20 auswählen und den Zelleninhalt verändern.
Zum Beispiel wenn der Zelleninhalt "1" ist soll jede Zelle in diesem Bereich zu "EU" geändert werden.
Ich habe bis jetzt folgenden Code (auch nur von der netten Hilfe aus diesem Forum bekommen), bleibe aber bei "With Sheets("Hauptseite")" hängen, weil ich nicht weiß wie ich den Bereich zwischen den beiden Spalten ansprechen kann:
Private Sub CommandButton1_Click()
Dim varDatum As Variant, varDatum2 As Variant, x As Variant
Dim Zelle As Range, Zelle1 As Range, Zelle2 As Range
If Me.ComboBox1.ListIndex > -1 Or Me.ComboBox1 "" And Me.ComboBox2.ListIndex > -1 Or Me.ComboBox2 "" Then
If IsNumeric(Me.ComboBox1) And IsNumeric(Me.ComboBox2) Then
If IsDate(Me.ComboBox1) And IsDate(Me.ComboBox2) Then
varDatum = Application.Match(CLng(CDate(Me.ComboBox1)), Rows(4))
varDatum2 = Application.Match(CLng(CDate(Me.ComboBox2)), Rows(4))
x = Application.Match(Me.ComboBox4, Sheets("Hauptseite").Columns(4))
If Not IsError(varDatum) And Not IsError(varDatum2) And Not IsError(x) Then
'Hier weiß ich nicht weiter
With Sheets("Hauptseite")
Set Zelle1 = Sheets("Hauptseite").Cells(x, varDatum)
Set Zelle2 = Sheets("Hauptseite").Cells(x, varDatum2)
For Each Zelle In Range(Zelle1, Zelle2)
If Zelle.Value = "1" Then
Zelle.Value = "EU"
End If
Next Zelle
End With
End If
End If
End If
End If
End Sub
Vielen Dank im voraus!!!
https://www.herber.de/bbs/user/148017.xlsm