HERBERS Excel-Forum - das Archiv
Bewerten Sie hier bitte das Excel-Portal
B1=A1 als VBA-Code
Karsten

Hallo,
ich möchte, dass in B1 der Inhalt von A1 erscheint. Allerdings nicht auf diese Weise: =A1, sondern als VBA-Code. Vor Jahren hat mir schon mal jemand einen ähnlichen Code geschrieben, der leider weggekommen ist und den ich jetzt aber wieder brauche.
Als zweites brauche ich als VBA-Code: Inhalt in B1= Inhalt der aktiven Zelle.
Kann mir jemand in dieser Frage behilflich sein.
Danke.
Gruß
Karsten

AW: B1=A1 als VBA-Code
Andre´

Hallo Karste,
Sub test()
[b1] = [a1]           'zu 1.
[b1] = ActiveCell  'zu 2.
End Sub
MFG Andre
AW: B1=A1 als VBA-Code
Karsten

Hallo Andre,
Danke
Gruß
Karsten
AW: B1=A1 als VBA-Code
Gerd

Hallo Karsten,
wie werden die Zellen A1 bzw. die aktive Zelle gefüllt,
per Eingabe oder per Formel?
Gruß Gerd
AW: B1=A1 als VBA-Code
Karsten

Hallo Gerd,
ich probier es erst mal Andre's Code.
Gruß
Karsten
AW: B1=A1 als VBA-Code
Daniel

Hi
Range("A1").Value = Range("B1").Value
Range("B1").Value = ActiveCell.Value
allerdings ist das ganze Statisch, dh. eine Aktualisierung der Werte in A1 bzw B1 findet nur statt, wenn das Makro läuft und nicht Automatisch, wenn sich B1 bzw die aktive Zelle ändern.
Gruß, Daniel
AW: B1=A1 als VBA-Code
Karsten

Hallo Daniel,
ich probier es erst mal Andre's Code.
Gruß
Karsten
hier eine Variante
Matthias

Hallo Karsten
Bei Änderung in A1 wird der Wert von A1 nach B1 geschrieben
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then Range("B1").Value = Target.Value
End Sub
und für die aktive Zelle eben so:
Range("B1").Value = ActiveCell.Value
Gruß Matthias
AW: hier eine Variante
Karsten

Hallo Matthias,
ich probier es erst mal Andre's Code.
Gruß
Karsten