Werte übernehmen

[Gast 123]

Hallo
 

in der heutigen Zeit ein Makro nicht gerade ungefährlich ist

@Admin   die Bedenken sind völlig korrekt, weil heute Makros ins Internet gehen können!!  Meine freie Meinung dazu:   
Wir arbeiten hier in einem öffentlichen Forum wo es genug Ratgeber gibt die meine Makros fachlich beurteilen können.  
Alle VBA Projekte sind offen, ohne Kennwortzchutz, jeder kann den gesamten Code ansehen ob er fragwürdig ist.

An den Frager:
um die Aufgabe überhaupt ausloten zu können waere am besten eine kleine Beispieldatei mit Fantasie Daten.  Was zum Programmieren wichtig ist sind die Namen der Tabellen, die Spalten und Zeilen in denen Text drin stehen.  Am besten eine haendische Lösung mit Erklaerung welche Daten von wo nach wo kopiert werden sollen, und welche gelöscht werden sollen.  Ohne konkrete Angaben dazu kann man nicht anfangen.   

Ansonsten mal in andere Threads reinschauen, meinen Namen findet man oft genug mit Makro Lösungen.

Morgen ist Heiligabend, ich wünsche ein frohes Weihnachtsfest.   (Bitte nicht mehr vor dem Fest zuviel erwarten, wir machen auch mal Pause)

mfg Gast 123

[Willie017]

Hallo

dies in den Codeteil der Tabelle, in welcher Du die Eingabe machen willst(Zelle A1). Die Daten werden in Tabelle2 geschrieben

Code:

Option Explicit
Dim f As Boolean

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim lNewRow As Long

  If Not Intersect(Target, Range("a1")) Is Nothing And Not f Then
     With Sheets("Tabelle2")
        lNewRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
        f = True
        .Cells(lNewRow, 1).Value = Target.Value
        Target = ""
        f = False
     End With
  End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Address(0, 0) = "A2" Then
     Range("A1").Select
  End If
End Sub