Checkbox und textfeld Umsteigerproblem!
Verfasst: Do, 23.10.2008 15:23
Hallo,
ich versuche gerade von MS offcice zu OpenOffce um zusteigen.
Habe mir auch die 3.0 version herrunter geladen, sieht ja alles sehr aus.
Nun habe ich das Problem mit meinen Excel-dateien die zum Teil VBA Code enthalten.
1. Problem:
In einer Exceltabelle habe ich Zellen geperrt um die Eingabe zu erleichter. Mit Tab kann ich in die Eingabezellen springen ohne durch jede leere ( nichtbenutzte ) Zelle zu sausen.
2. Problem:
Ich eine checkbox mit der ich durch anklicken ein Textfeld zur Eingabe aktiviere. Ist der haken gesetzt wird das Textfeld sichtbar und der Cursor ist in dem Feld. Ist der haken weg wird auch das Textfeld an der Stelle unsichtbar.
Ich habe im OpenOfcice leider noch nicht gefunden wie ich das lösen kann, geht das überhaupt in OpenOffice?
Habe den VBA Code ´mal mit dran gemacht
und
Hoffe mir kann da jemand helfen.....
Gruß André
ich versuche gerade von MS offcice zu OpenOffce um zusteigen.
Habe mir auch die 3.0 version herrunter geladen, sieht ja alles sehr aus.
Nun habe ich das Problem mit meinen Excel-dateien die zum Teil VBA Code enthalten.
1. Problem:
In einer Exceltabelle habe ich Zellen geperrt um die Eingabe zu erleichter. Mit Tab kann ich in die Eingabezellen springen ohne durch jede leere ( nichtbenutzte ) Zelle zu sausen.
2. Problem:
Ich eine checkbox mit der ich durch anklicken ein Textfeld zur Eingabe aktiviere. Ist der haken gesetzt wird das Textfeld sichtbar und der Cursor ist in dem Feld. Ist der haken weg wird auch das Textfeld an der Stelle unsichtbar.
Ich habe im OpenOfcice leider noch nicht gefunden wie ich das lösen kann, geht das überhaupt in OpenOffice?
Habe den VBA Code ´mal mit dran gemacht
Code: Alles auswählen
Private Sub CheckBox1_Click()
If (CheckBox1.Value = True) Then
TextBox1.Enabled = True
TextBox1.Visible = True
Else
TextBox1.Enabled = False ' falls du das feld wieder deaktivieren willst
TextBox1.Visible = False
End If
End Sub
Code: Alles auswählen
Private Sub Workbook_Open()
Sheets("Bericht").EnableSelection = xlUnlockedCells
End Sub
Gruß André