Das Clever-Excel-Forum.de - Treffen
findet vom 15. - 17. September 2017 in Thüringen / Region Großer Inselsberg statt. Hotelbuchung ab sofort möglich.


VBA wenn gleicher Wert dann kopieren
#1
Hallo Leute, bin gerade am Beginn mich mit VBA zu beschäftigen und hänge bei diesem Beispiel.
Ich will, wenn in Tabellenblatt1 (Wert wird über Dropdown ausgewählt) der gleiche Wert wie in Tabellenblatt2 ist eine Tabelle von einem ins andere kopiert wird

Das habe ich bis jetzt geschrieben und es will nicht funktionieren

Code:
If Sheets("Tabelle1").Range("D3").Value = Sheets("VorlageRahmenplan").Range("D3").Value Then
    Sheets("VorlageRahmenplan").Select
    Range("D4:F22").Select
    Selection.Copy
    Sheets("Tabelle1").Select
    Range("D4").Select
    ActiveSheet.Paste
Else
  Exit Sub
End If

es wäre mir eine große Hilfe wenn mir wer sagen könnte wo der Fehler liegt

Vielen Dank
to top
#2
Hallo,

Code:
If Sheets("Tabelle1").Range("D3").Value = Sheets("VorlageRahmenplan").Range("D3").Value Then
  Sheets("VorlageRahmenplan").Range("D4:F22").Copy Sheets("Tabelle1").Range("D4")
End If

Gruß Uwe
to top
#3
(18.10.2014, 12:58)turbophil schrieb: ...wo der Fehler liegt...
Hallo, ich hab ne Userform erstellt mit Commandbutton. Da hinein deinen Code kopiert und es klappt. Hoffe geholfen zu haben.
?mage
to top
#4
Danke euch beiden!
mit Commandbutton bekomme ich das ganze jetzt hin.

Mir wäre es aber lieber wenn sich die Werte automatisch ändern würden ohne das ich wo klicken muss
Gibt es dazu eine Lösung ohn CommandButton, bzw wo muss ich muss ich meinen Code dann einfügen??

lg phil
to top
#5
Hallo phil,

Rechtsklick auf den Tabellenreiter -> Code anzeigen.
Nun im rechten Codefenster diesen Code eintragen:

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address(0, 0) = "D3" Then
    With Sheets("VorlageRahmenplan")
      If Target.Value = .Range("D3").Value Then
        .Range("D4:F22").Copy Me.Range("D4")
      End If
    End With
  End If
End Sub

Gruß Uwe
[-] Folgende(r) 1 Benutzer sagt Danke an Kuwer für diesen Beitrag:
turbophil
to top
#6
Super!!!!
Vielen Dank für die Hilfe!!

So funktioniert es genau wie ich es wollte!!


Danke
to top


Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  WENN DANN MITTELWERT stella_gen 5 51 07.12.2016, 15:01
Letzter Beitrag: stella_gen
Brick Anzahl gleicher Werte unter Duplikatoren marinko 1 32 07.12.2016, 11:10
Letzter Beitrag: BoskoBiati
  WENN 5 Zellen ISTLEER dann... Argre 7 107 03.12.2016, 22:48
Letzter Beitrag: schauan
  Wert suchen in Spalte und wert da neben ausgeben VBA michel34497 2 50 02.12.2016, 23:33
Letzter Beitrag: michel34497
  WENN/DANN Bedingung möglich? stella_gen 22 224 02.12.2016, 00:01
Letzter Beitrag: stella_gen
  Excel VBA, Bild aus nebenstehender Zelle kopieren wenn Zelle ausgewählt ist xChristianx 5 78 30.11.2016, 11:32
Letzter Beitrag: xChristianx
  WENN/DANN Gesamtsumme nach Kriterien Baldi 5 92 28.11.2016, 16:53
Letzter Beitrag: Baldi
  Nur zellen mit bestimmten Wert kopieren teufelchenbs 1 57 25.11.2016, 22:25
Letzter Beitrag: schauan
  Spalten in Zeilen umwanden mit gleicher Überschrift fabian1994 2 75 23.11.2016, 17:50
Letzter Beitrag: schauan
  Wenn Zelleninhalt > 0 dann die 5 linken Zellen farbig Daniel Albert 5 83 22.11.2016, 18:48
Letzter Beitrag: Daniel Albert

Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste