Hallo
geht das auch andersrum, das ich aus einer Zelle einen Text einer anderen Zelle zuweise?
Dazu folgendes:
A1 B1
Zellzuweisung Blablabal
In B1 steht ein Text, durch Änderung von A1 (Zuweisung zur Zelle zb.F288) soll der Text aus B1 in der Zuweisungszelle eingetragen werden.
Geht sowas?
Mfg Werner
Grüezi Werner
geht das auch andersrum, das ich aus einer Zelle einen Text
einer anderen Zelle zuweise?Dazu folgendes:
A1 B1
Zellzuweisung BlablabalIn B1 steht ein Text, durch Änderung von A1 (Zuweisung zur
Zelle zb.F288) soll der Text aus B1 in der Zuweisungszelle
eingetragen werden.Geht sowas?
Hmmm, IMO hängt das einzig von der Formel ab,die in F288 enthalten ist.
Diese ‚holt‘ sich einen Wert - entweder aus A1 oder aus B1. Diese Bedingung kannst Du z.B. mit einer WENN()-Formel festlegen und je nach Inhalt von A1 dann einen Wert aus einer anderen Zelle beziehen.
Für konktete(er) Ausführungen müsstest Du uns noh umfassender beschreiben was Du denn gerne möchtest (und warum).
–
Mit freundlichen Grüssen
Thomas Ramel
in F288 steht gar nix
ich trag einfach in A1 ein, das der Text aus B1 in Zelle F288 stehen soll. Und wenn er in G2999 stehen soll, änder ich das in A1 einfach ab.
Sinn ist, das ich flexibel den Text ändern kann durch Anderung des Eintrags in A1.
Mfg Werner
in F288 steht gar nix
ich trag einfach in A1 ein, das der Text aus B1 in Zelle F288
stehen soll. Und wenn er in G2999 stehen soll, änder ich das
in A1 einfach ab.
Hallo Werner,
dann müssen Formeln in G2999 und F288 stehen.
Oder Change-Ereignis-Code.
Gruß
Reinhard
Hi
ja eben das möchte ich ja nicht, wenn der Zellbezug Flexibel sein soll. Es muss doch gehen das man das dann in A1 einträgt.
Mfg Werner
ja eben das möchte ich ja nicht, wenn der Zellbezug Flexibel
sein soll. Es muss doch gehen das man das dann in A1 einträgt.
Hallo Werner.
schreib an Bill in Redmond daß da was gehen muss 
Oder nimm diesen Code,
in’s Modul des Tabellenblattes:
Private Sub Worksheet\_Change(ByVal Target As Range)
Set Target = Intersect(Target, Range("A1"))
If Not Target Is Nothing Then
If UCase(Target.Value) = "G2999" Or UCase(Target.Value) = "F288" Then
Range("G2999,F288").Value = ""
Range(Target.Value) = Range("B1")
End If
End If
End Sub
Gruß
Reinhard
Hallo Reinhard
Meint Nirwarna nicht etwas anderes? Etwa in dieser Art:
Sub test()
On Error GoTo finis
t1 = Range("A1")
t2 = Range("B1")
Range(t1) = t2
finis:
End Sub
Er will in Zelle A1 eingeben, in welcher Zelle der Inhalt von B1 wiederholt werden soll, hab ich verstanden.
Das müsste man noch übersetzen für Target und so. Da bin ich ziemlich Analphabet.
Grüsse aus Zürich
Niclaus
Grüezi Niclaus,
Meint Nirwarna nicht etwas anderes? Etwa in dieser Art:
Er will in Zelle A1 eingeben, in welcher Zelle der Inhalt von
B1 wiederholt werden soll, hab ich verstanden.
das macht mein Change-Ereignis-Code doch *irritiert schau*
Das müsste man noch übersetzen für Target und so. Da bin ich
ziemlich Analphabet.
Wo genau hängt’s?
Im Editor, klicke links doppelt auf ein Blattnamen dann erscheint rechts das Klassenmodulfenster des Blattes.
Beim Klick obendrüber in der Mitte auf den Pfeil neben „(Allgemein)“ wählst du „Worksheet“ aus.
Rechts davon kannst du alle Ereignisse des Klassenmoduls des Blattes auswählen.
Und Target als Parameter ist die Zelle/ der Zellenbereich, der z.B. im Change-Ereignis gerade geändert wurde.
Gruß
Reinhard
das macht mein Change-Ereignis-Code doch *irritiert schau*
ziemlich Analphabet.
Wo genau hängt’s?
Grüezi Reinhard
If UCase(Target.Value) = "G2999" Or UCase(Target.Value) = "F288" Then
Range("G2999,F288").Value = ""
Range(Target.Value) = Range("B1")
End If
Das funktioniert - wie alles von Dir - vorzüglich. Aber mit der Einschränkung auf die beiden Zellen g2999 und f288.
Ich wollte fragen: Wie müsste der Code lauten, damit ich in A1 eine x-beliebige Zelle nennen kann, die dann mit dem Inhalt von B1 gefüllt wird. - Auf Schweizerdeutsch hätte ich es schon beim ersten Mal besser sagen können! Dass ich mich hier mit zwei Fremdsprachen (VBA-Sprache und Hochdeutsch) rumschlagen muss, das isch scho ä chli kompliziert und macht eim zläbe nit eifach! Begriifsch?
Ae scheene abed nu und vilä Dank fir alles!
Niclaus
Grüezi Niclaus,
Ich wollte fragen: Wie müsste der Code lauten, damit ich in A1
eine x-beliebige Zelle nennen kann, die dann mit dem Inhalt
von B1 gefüllt wird. -
jetzt mal weglassend das man erst prüfen müßte ob A1 eine gültige Zelladresse hat, vielleicht so, ungetestet:
Range(Range(„A1“).value).value=range(„B1“).value
Auf Schweizerdeutsch hätte ich es schon
beim ersten Mal besser sagen können! Dass ich mich hier mit
zwei Fremdsprachen (VBA-Sprache und Hochdeutsch) rumschlagen
muss, das isch scho ä chli kompliziert und macht eim zläbe nit
eifach! Begriifsch?
Kauf dir doch das Idiotikum *grins* Ich finde den Namen irgendwie Klasse, nicht böse sein deshalb
Gruß
Reinhard