Thema Datum  Von Nutzer Rating
Antwort
01.06.2018 09:22:30 megawunk
NotSolved
Blau markierte Zeile(n) in anderes Tabellenblatt verschieben
 04.06.2018 20:05:59 xlKing
NotSolved
07.06.2018 07:40:38 megawunk
NotSolved
22.12.2018 00:01:56 Gast57580
NotSolved
23.12.2018 22:27:41 megawunk
Solved

Ansicht des Beitrags:
Von:
xlKing		 Datum:
04.06.2018 20:05:59		 Views:
590		 Rating:
     
Antwort:
  Ja
Thema:
markierte Zeile(n) in anderes Tabellenblatt verschieben

Hallo megawunk,

ja das ist möglich. Füge einfach ein Userform hinzu und lege dort ein Label, eine Combobox und einen CommandButton an.

Code im Userform:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CommandButton1_Click()
  Sheets(ComboBox1.Value).Cells(Rows.Count, 1).End(xlUp).Offset(1).PasteSpecial xlPasteAll
  Application.CutCopyMode = False
  Unload Me
End Sub
 
Private Sub UserForm_Initialize()
  Label1.Caption = "Einfügen am Ende von Blatt:"
  For Each sht In Worksheets
    ComboBox1.AddItem sht.Name
  Next sht
  ComboBox1.MatchRequired = True
  ComboBox1.Value = Sheets(1).Name
End Sub

Code im Makromodul

?
1
2
3
4
5
6
7
Sub Zeile_verschieben()
  With Selection
    .Copy
     UserForm1.Show
    .EntireRow.Delete
  End With
End Sub

Gruß Mr. K.

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • 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
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • 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

Thema Datum  Von Nutzer Rating
Antwort
01.06.2018 09:22:30 megawunk
NotSolved
Blau markierte Zeile(n) in anderes Tabellenblatt verschieben
 04.06.2018 20:05:59 xlKing
NotSolved
07.06.2018 07:40:38 megawunk
NotSolved
22.12.2018 00:01:56 Gast57580
NotSolved
23.12.2018 22:27:41 megawunk
Solved