Thema Datum  Von Nutzer Rating
Antwort
Rot Ganze Zeile kopieren, wenn nur einzelne Zelle ausgewählt!
08.01.2019 11:37:56 megawunk
NotSolved
08.01.2019 12:15:57 Flotter Feger
NotSolved
08.01.2019 12:18:42 Werner
NotSolved
08.01.2019 16:34:18 megawunk
Solved

Ansicht des Beitrags:
Von:
megawunk
Datum:
08.01.2019 11:37:56
Views:
30
Rating: Antwort:
  Ja
Thema:
Ganze Zeile kopieren, wenn nur einzelne Zelle ausgewählt!

Ich brauch mal wieder eure Hilfe!

Ich verschiebe ganze markierte Zeilen von einem Tabellenblatt in ein anderes, welches ich mittels einer ComboBox in einem Formular auswählen kann!

Nach dem kopieren wird die markierte Zeile dann gelöscht.

Mein Problem ist nun folgendes: Meine Auswahl im Code nimmt ja nur das was auch wirklich ausgewählt ist. Wenn ich nun ausversehen nur eine Zelle anstatt einer Zeile anklicke, kopiert es mir zwar die eine Zelle ins neue Blatt, der Rest der Zeile wird allerdings gelöscht

 

Private Sub CommandButton1_Click()
  With Selection
    .Copy
    Sheets(ComboBox1.Value).Cells(Rows.Count, 1).End(xlUp).Offset(2).PasteSpecial xlPasteAll
  Application.CutCopyMode = False
    .EntireRow.Delete
  End With
  Unload Me
End Sub

 

Wie stelle ich es an, das mir trotz einer eventuell angewählten Zelle immer die ganze Zeile kopiert wird?

 

Danke schonmal für eure Hilfe:


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Ganze Zeile kopieren, wenn nur einzelne Zelle ausgewählt!
08.01.2019 11:37:56 megawunk
NotSolved
08.01.2019 12:15:57 Flotter Feger
NotSolved
08.01.2019 12:18:42 Werner
NotSolved
08.01.2019 16:34:18 megawunk
Solved