Microsoft Excel

Herbers Excel/VBA-Archiv

B1=A1 als VBA-Code | Herbers Excel-Forum


Betrifft: B1=A1 als VBA-Code von: Karsten
Geschrieben am: 22.11.2009 21:16:56

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

  

Betrifft: AW: B1=A1 als VBA-Code von: Andre´
Geschrieben am: 22.11.2009 21:23:28

Hallo Karste,

Sub test()
[b1] = [a1]           'zu 1.
[b1] = ActiveCell  'zu 2.
End Sub
MFG Andre


  

Betrifft: AW: B1=A1 als VBA-Code von: Karsten
Geschrieben am: 22.11.2009 22:05:09

Hallo Andre,

Danke

Gruß
Karsten


  

Betrifft: AW: B1=A1 als VBA-Code von: Gerd L
Geschrieben am: 22.11.2009 21:24:46

Hallo Karsten,

wie werden die Zellen A1 bzw. die aktive Zelle gefüllt,
per Eingabe oder per Formel?

Gruß Gerd


  

Betrifft: AW: B1=A1 als VBA-Code von: Karsten
Geschrieben am: 22.11.2009 21:36:30

Hallo Gerd,

ich probier es erst mal Andre's Code.

Gruß
Karsten


  

Betrifft: AW: B1=A1 als VBA-Code von: Daniel
Geschrieben am: 22.11.2009 21:25:40

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


  

Betrifft: AW: B1=A1 als VBA-Code von: Karsten
Geschrieben am: 22.11.2009 21:36:47

Hallo Daniel,

ich probier es erst mal Andre's Code.

Gruß
Karsten


  

Betrifft: hier eine Variante von: Matthias L
Geschrieben am: 22.11.2009 21:26:11

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


  

Betrifft: AW: hier eine Variante von: Karsten
Geschrieben am: 22.11.2009 21:37:10

Hallo Matthias,

ich probier es erst mal Andre's Code.

Gruß
Karsten


Beiträge aus den Excel-Beispielen zum Thema "B1=A1 als VBA-Code"