VBA Excel Einen Wert von Tabelle1 in Tabelle 2 Kopieren.

...komplette Frage anzeigen

2 Antworten

Ich habe gerade kein Excel hier, aber aus dem Kopf geht das glaube ich so: Wobei Zelle3 soll Tabelle3 sein.

sheets(Zelle3).cells(1,1).value = Sheets(Zelle).(Cells(1,1).value

Also ... nunja er nimmt der Wert und er verschwindet dann ohne irgenwo zu laden^^... Auch wenn das verschwienden nicht wäre, würde der Wert aus Tabelle 1 Fehlen. Er soll ihn ja eher Kopieren :D hab jetzt Statt Tabelle 3 Lieber Tabelle 2 genommen ist denke ich besser so :)

Dim J As Long Dim Trf As Long 'Zeigt ob ein Treffer Stattgefunden hat Dim Zelle As String 'Die Zelle A1 in Tabelle 2 Dim Spalte As String 'Die Reihe A1-n in Tabelle 1 bis jetzt

Trf = 0

Zelle = "Tabelle2" 'die Tabelle, in der die Werte in der Zeile untereinander stehen, Spalte A Spalte = "Tabelle1" 'die Tabelle, in der die Werte in den die Spalte stehet, Zelle 1A

For J = 1 To 9
    If Sheets(Zelle).Cells(1, 1) = Sheets(Spalte).Cells(J, 1) Then

        MsgBox "Gleicher Eintrag gefunden"


        Sheets(Spalte).Cells(J, 1).Value = Sheets(Zelle).Cells(5, 5).Value
        Trf = Trf + 1

    ElseIf J = 9 And Trf = 0 Then

        MsgBox "Keine Übereinstimmungen gefunden"

End If


Next J

End Sub

0
@swfan6

Wie geschrieben, habe hier kein Excel. Aber das wichtigste ist ja, das Du einen Lösungsansatz hast, der Dir zum Ziel geholfen hat.

0

Ich verstehe die Problematik nicht.

Wenn in Tabelle2, A1 der Wert steht, mit dem Tabelle1 verglichen wird, warum muss dann erst beim Finden der Wert nach Tabelle3 kopiert werden?

Das kann man doch schon im Excel als Formel eingeben:

in Tabelle3 , A 1 steht die Formel:   =Tabelle2!A1

Damit ist der Wert dort präsent.

Dazu braucht man kein VBA, eine reine Verlinkung innerhalb einer Mappe (über zwei Tabellen)

Was möchtest Du wissen?