Zeile kopieren und einfügen mit VBA, aber wie?

... komplette Frage anzeigen

2 Antworten

Ich weiß nicht was das UP in Deinem Code soll und woher es kommt, aber das kopieren sollte so klappen:

For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
   If Cells(i, 1).Value = UserForm2.ComboBox1.Value Then
      Cells(8, 1).EntireRow.Copy Cells(i, 1)
      Exit For
   End If
Next

[Wenn Du die Code-Funktion hier nutzt und die Zeilenumbrüche manuell setzt (SHIFT&ENTER) wie oben, wird Dein Code lesbarer und Dir wird eher geholfen.]

Antwort bewerten Vielen Dank für Deine Bewertung
Kommentar von Suboptimierer
14.12.2015, 12:16

Ich habe mal einen Formatierungsvorschlag abgeschickt.

0
Kommentar von LadieX
14.12.2015, 13:49

Vielen Dank :)

Was schreibe ich denn jetzt noch nach dem Next?

Das Kopierte muss ja noch eingefügt werden...

0

Ich stimme Oubyis Vorschlag zu.

aber warum machst Du das über

UserForm2.ComboBox1  ?

reicht denn Variable = inputbox(...) nicht ?

Dann bräuchtest Du keine extra Userform dafür erstellen!

Antwort bewerten Vielen Dank für Deine Bewertung
Kommentar von Iamiam
14.12.2015, 13:39

übrigens gibts auch copy --- ...entirerow.pastespecial(xlformats)

anstatt entirerow reicht es auch, die erste Zelle der Zeile anzusteuern.

Schau wegen der Syntax nochmal in die Hilfe, hab das auswendig formuliert!

0

Was möchtest Du wissen?