|
Hallo liebe VBA Gurus,
eine Textbox hat doch im Prinzip zwei Funktionen.
Zum einen kann ich in die Textbox etwas reinschreiben was dann in das Excel-Sheet übertragen wird: Range("A1") = TextBox1
Zum andern kann ich mit einer Textbox auch Zellen eines Sheets auslesen: TextBox1 = Range("A1")
Und jetzt kommts: ich habe eine Liste die ich mit einem "Weiter" Button von oben nach unten durchlaufe und ich möchte es hinbekommen, dass ich wenn nichts in der aktuellen Zelle drin steht etwas eingeben kann, aber falls etwas drin steht soll es mir das in der Textbox anzeigen, aber mit der Möglichkeit es zu überschreiben?
Kurz:
wenn Feld leer, schreibe "Nein" oder Textboxinhalt ins Worksheet
wenn Feld voll, zeige Inhalt an in Textbox
wenn Inhalt angezeigt soll er überschrieben werden können
Bis jetzt hab ich das hier:
1 2 3 4 5 6 7 8 9 10 11 12 13 | If Range("E" & j) = "" Then
If TextBox3 = "" Then
Range("E" & j - 1) = "Nein"
Else
Range("E" & j - 1) = TextBox3
End If
Else
TextBox3 = Range("E" & j - 1)
Range("E" & j - 1) = TextBox3
End If
|
Funktioniert bis auf die Tatsache, dass wenn ich einen Eintrag überschreibe es nicht ins Worksheet übernommen wird.
Bitte um Hilfe.
Vielen Dank schon mal an alle Helfer.
Gruß Kentucky
|