Klick in Zelle öffnet UserForm

Computer: Software & Programmierung Visual Basic
#1

Hallo VBA Freunde,
Bin nach langer Zeit mal wieder mit einer Frage im Forum.
Bitte um Hilfe.
Mit Click in eine Zelle öffnet sich eine UserForm und anschließend
wird aus einer TextBox ein Wert in eine bestimmte Zelle addiert.
Click in I3, Wert in Cells (3, 8)-funzt-. Wenn ich jetzt I4 clicke soll der Wert in Cells (4, 8) usw. bis I22 Cells 22, 8).
Wie muss der Code aussehen damit dies funzt. Komme im Moment nicht weiter. (Excel 2000)
Hier mein Code:
Code Tabelle:

Private Sub Worksheet\_SelectionChange(ByVal Target As Range)
If Target.Address = "$I$3" Then
frmEingabePlus1.Show
End If
If Target.Address = "$I$4" Then
frmEingabePlus1.Show
End If
End Sub

Code UserForm:

Private Sub cmdPlusH3\_Click()
Dim temp As Double
On Error GoTo Err
temp = txtPlusH3.Text + Sheets("ZK 2011").Cells(3, 8).Value
Sheets("ZK 2011").Cells(3, 8).Value = temp
Unload Me
Exit Sub
Err:
MsgBox "Bitte eine Zahl eingeben"
End Sub

Mit Dank im Voraus.

Gruß Skaletti!

#2

So, ich hoffe ich habe das nun korrekt verstanden.^^

Also, mit dem Klick in Zelle „I3“ wird die UserForm aufgerufen und der Wert aus der TextBox und einer Zelle in „I3“ geschrieben. Das ganze soll nun für jede Zelle aus „I“ funktionieren in die man klickt.

Eigentlich müsstest du nur folgenden Code ändern:

temp = txtPlusH3.Text + Sheets(„ZK 2011“).Cells(3, 8).Value
Sheets(„ZK 2011“).Cells(3, 8).Value = temp

in

temp = txtPlusH3.Text + ActiveCell.Value
ActiveCell.Value = temp

Somit wird zu jeder Zelle in die geklickt wird, der Text in der Textbox hinzugefügt.
Sollte das jetzt nur für I3 - I22 gelten müsste man noch das entsprechende Range festlegen.

#3

Hallo Zero,
vielen Dank für deine schnelle Antwort.

So, ich hoffe ich habe das nun korrekt verstanden.^^

nicht ganz

Also, mit dem Klick in Zelle „I3“ wird die UserForm aufgerufen
und der Wert aus der TextBox und einer Zelle in „I3“
geschrieben. Das ganze soll nun für jede Zelle aus „I“
funktionieren in die man klickt.

Aufruf UserForm I3 ist richtig,dann wird ein Wert in die Textbox eingetragen (von Hand) und mit einem Buttonklick in die Zelle H3 übertragen (Cells(3, 8))und addiert. Weiter: Klick Zelle I4, Wert in H4 usw., bis I22 (klick) und H22 Wert.

Eigentlich müsstest du nur folgenden Code ändern:

temp = txtPlusH3.Text + Sheets(„ZK 2011“).Cells(3, 8).Value
Sheets(„ZK 2011“).Cells(3, 8).Value = temp

Code:

temp = CDbl(txtPlusH3.Value) + Sheets("ZK 2011").Cells(3, 8).Value
Sheets("ZK 2011").Cells(3, 8).Value = temp

Gruß Skaletti!

#4

Hmmm. Also in H3 z. B. steht schon ein Wert. Ich vermute mal eine Zahl, oder?
Und diese soll mit der Zahl aus dem Textfeld addiert werden. Und das ganze zurück in H3 geschrieben werden?!?

Also, füge ein Modul ein und definiere 2 Globale Variabeln:
Global Zelle1 As String
Global Zelle2 As String

Dann fügst du in die entsprechende Tabelle folgenden Code ein:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Zelle = Split(ActiveCell.Address, „$“)
Zelle1 = Zelle(1)
Zelle2 = Zelle(2)
If (Zelle(1) = „I“) And (Zelle(2)

#5

Hallo Zero,

vielen Dank für die Hilfe.
Habs hinbekommen.
Funzt prima.

Gruß Skaletti!