Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1916to1920
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1916to1920
1916to1920
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen kopieren per Mausklick?

Zeilen kopieren per Mausklick?
06.02.2023 16:26:06
Sandra
Hallo Profis
Ich habe Tabellen mit bis zu 2'000 Zeilen (Artikeldaten).
Nun hätte ich gerne ein Makro, das Folgendes kann:
- in der gleichen Arbeitsmappe ein neues Tabellenblatt "Inventur" erstellen
- Messagebox in der Tabelle: "Welche Zeile möchten Sie kopieren?"
- wenn auf eine Zeile geklickt wird, die komplette Zeile im Tabellenblatt "Inventur" in die erste freie Zeile kopieren
- Messagebox "Die Zeile ... wurde kopiert. Weitere Zeile kopieren?" (Evtl. lässt sich in der Tabelle die bereits schon kopierte Zeile z.B. mit Farbe markieren?)
- solange fragen, bis "nein" geklickt wird
Funktioniert das, wenn die Zeile mit Mausklick ausgewählt werden soll?
Ich freue mich auf ein Echo und bin sehr gespannt.
Herzlichen Dank jetzt schon

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen kopieren per Mausklick?
06.02.2023 16:33:13
Rudi
Hallo,
wo ist denn da der Mehrwert?
1. Blatt Inventur erstellen
2. Zeilen mit gedrückter Strg-Taste markieren
3. kopieren
4. einfügen
Gruß
Rudi
AW: Zeilen kopieren per Mausklick?
06.02.2023 16:58:58
Sandra
Danke für deine Antwort, aber ich suche eine Makro-Lösung.
Der Anwender muss aus der Tabelle möglichst schnell einzelne Zeilen kopieren können, während er gleichzeitig in einem Gespräch ist.
AW: Zeilen kopieren per Mausklick?
06.02.2023 17:06:32
onur
Dann solltest du vielleicht mal Hilfe erbitten, statt zu schreiben: "Ich hätte gerne:" Hier ist keine Bestellannahme. :)
AW: Zeilen kopieren per Mausklick?
06.02.2023 18:09:15
Rudi 
Option Explicit
Sub aa()
  Dim w As Worksheet, i As Worksheet, r As Range
  On Error Resume Next
  Set w = ActiveSheet
  Set i = Worksheets("Inventur")
  On Error GoTo 0
  If i Is Nothing Then
    Set i = Worksheets.Add
    i.Name = "Inventur"
  End If
  w.Activate
  Do
    On Error Resume Next
    Set r = Application.InputBox("Zellen markieren", , , , , , , 8)
    On Error GoTo 0
    If Not r Is Nothing Then
      Set r = r.EntireRow
      r.Copy i.Cells(Rows.Count, 1).End(xlUp).Offset(1)
      r.Interior.Color = vbRed
    Else
      Exit Sub
    End If
  Loop Until MsgBox("Weiter?", vbYesNo) = xlNo
End Sub
Gruß
Rudi
Anzeige

Links zu Excel-Dialogen

InputBox MessageBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige