ich habe laut Excel-Info = Excel 2003 auf meinem Rechner.
Aus verschiedenen Gründen sagen mir die Tabellen in Excel nicht mehr zu, weswegen ich auf eine Eingabe-Ausgabemaske/Userform zurückgreifen möchte.
Dabei werden folgende Werte in der Tabelle Angesprochen
Datei: Vorlage
Tabellenname: Test
Inputzelle1: B2
Inputzelle2: B3
Outputzelle: D3
D3 = B2*B3
Mein erster Code ist:
Private Sub Workbook_Open()
Load Userform1
Userform1.show
End Sup
- funktioniert einwandfrei, beim Anklicken der Datei Vorlage wird die Maske zu Beginn geöffnet
In der Eingabemaske/Userform wurden 2 Eingabetextfelder und 1 Ausgabetextfeld angelegt.
Die Eingabetextfelder wurden in Eigenschaften über ControlSource mit den zugehörigen _
Tabellenzellen eingebunden/verknüpft. Zusätzlich wurden noch ein Butten "Berechne" und "Lösche" _
_
_
angelegt.
Die Codes lauten:
Für Berechne:
Private Sub CommandButton1_Click()
Range("B2").Activate
Range("B3").Activate
End Sub
Für Lösche:
Private Sub CommandButton2_Click()
Range("B2").Value = 0
Range("B3").Value = 0
End Sub
- Alles perfekt, über die Eingabefenster kann ich Werte in die Tabellenzellen eingeben, über Button kann ich diese aktualisieren und auch löschen = keine Probleme.
Was ich jetzt brauche ist das Echo/Abfrage in der Maske bei OutputZelle D3 ohne die zugrundeliegende Tabellenzelle zu zerstören, weil die Formel in D3 nicht zerstört werden soll - will ja nur D3 in der Userform1 auslesen.
Textbox3 = Range("D3") - funktioniert nicht
Range("D3").Show - funktioniert nicht
vielleicht muß ich noch was in Eigenschaften ändern - ich weiß es nicht
Es wäre schön, wenn ihr mir helfen könntet.
Vielen Dank im Voraus.
Frank