inputbox, werte aus einer zelle übernehmen

[keksi1970]

hi,
da steh ich so ziemlich auf dem schlauch, ich versuche grade anhand einer inputbox eine tabelle auszufüllen, das gehgt auch ganz gut, nur möchte ich die tabelle mehrfach mit demselben macro bearbeiten.

also soll der wert einer zelle, den ich per inputbox bestimme, beim 2. aufruf als standartwert schon in der inputbox übernommenwerden (evtl änderung, bei enter halt keine aenderung)

schubst mich mal an

[komma4]

ist wohl hier beantwortet?

[keksi1970]

neee

ich moechte ja die werte, die ich in dem angegebenen link eingebe, innerhalb der inputbox als standard wert benutzen

im beispiel :

zelle ist leer, ich gebe neuen namen per inputbox ein (name = inputbox("name eingeben", "", "0" )

steht der name schon in a1 soll halt nur ne überprüfung stattfinden (name = inputbox("name eingeben", a1, "0")

aber irgendwie nimmt der den wert der zelle nicht

[komma4]

Die Angabe "a1" ist keine Basic-Funktion zur Übernahme des Zellinhalts.

Da musst Du schon mit Code den Inhalt holen.

[turtle47]

Hi Keksi,

hiermit sollte das funktionieren:

Code: Alles auswählen

Sub Eingabe1
	oDoc = thisComponent
	mySheet = oDoc.Sheets(0)
	mycell = mysheet.getCellRangeByName("A1")
	myString= mycell.string
	test1=Inputbox("Name", "Eingabe", myString)
	oZielzelle = mySheet.getCellRangeByName("A1")
	oZielzelle.string = test1
End Sub

Das gilt in diesem Beispiel bei Textinhalt.
Wenn Zahlen oder Formeln in der Zelle enthalten sind, dann muss man das Makro entsprechend anpassen.
Wie das geht erfährst Du auf der genialen Homepage von Michael.

aber ganz so fit bin ich nicht

Dann solltest Du Michaels Page generell mal studieren.

Kommst Du damit weiter?

Jürgen

[keksi1970]

Die Angabe "a1" ist keine Basic-Funktion zur Übernahme des Zellinhalts.

Da musst Du schon mit Code den Inhalt holen.

hihi, ich weiss, war nur zur problembeschreibung und hat ja auch funktioniert

@jürgen

danke für den link, sowas hab ich gesucht

und natürlich auch für die hilfe