Hallo Leute!
Folgendes Problem:
Ich möchte in die erste frei Spalte einer bestimmten Zeile einen Text einfügen wenn ein Kontrollkästchen aktiviert ist.
In diesem Beispiel ist die erste frei Spalte (B11), in A11 befindet sich eine Überschrift.
Wenn alle drei Konrollkästchen aktiviert sind sollte es so aussehn: B11="Text1"; C11="Text2"; D11="Text3".
Fehlermeldung: Objekttypen unverträglich... hab die Stelle mit *** markiert.
Bitte um Lösungsvorschläge, Danke im Voraus!
LG Manuel
Code:
Dim wks As Worksheet
Dim addnew As Range
Dim addnew1 As Range
Dim addnew2 As Range
Dim addnew3 As Range
Dim lngLetzteSpalte As Long
Set wks = Tabelle1
If cb_1.Object.Value = True Then
lngLetzteSpalte = wks.Cells(11, Columns.Count).End(xlToLeft).Column
***Set addnew1 = lngLetzteSpalte***
addnew1.Value = "Text1"
End If
If cb_2.Object.Value = True Then
lngLetzteSpalte = wks.Cells(11, Columns.Count).End(xlToLeft).Column
Set addnew2 = lngLetzteSpalte
addnew2.Value = "Text2"
End If
If cb_3.Object.Value = True Then
lngLetzteSpalte = wks.Cells(11, Columns.Count).End(xlToLeft).Column
Set addnew3 = lngLetzteSpalte
addnew3.Value = "Text3"
End If
|