Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen kopieren per Mausklick?

Forumthread: 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
Anzeige

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.
Anzeige
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
;

Forumthreads zu verwandten Themen

Kontextmenü bei rechtem Mausklick
Torsten

Hallo beisammen,
seit einem Download aus einem Intranet-Programm erscheint bei einem rechten Mausklick auf einen Registerreiter in einer Excel-Datei das Kontextmenü nicht mehr. Wie kann ich das wieder korrigieren?
Vielen Dank für Eure Hilfe vorab.
Gruß
Torsten
21.10.2008 09:36:00
Thread-ID: 1017863
5 Beiträge
Anzeige
Makro auf Tabelle läuft nur nach Mausklick
Joachim

Hallo,
ich brauch mehr als 3 bedingte Formatierungen. Daher habe ich den folgenden Code für die 4. Bedingung im Worksheet eingetragen:
Private Sub Worksheet_SelectionChange(ByVal Target as Excel.Range) If Range("A12").Value = 16 Then Range("C15").Interior.ColorIndex = 34 Else Range("C...
24.10.2008 13:02:00
Thread-ID: 1018974
10 Beiträge
Mausklick registrieren
S.

Hallo zusammen,
ich möchte auf einer geöffneten Userform einen einfachen Mausklick (kein Doppelklick) registrieren, etwa so:
If "linke Maustaste gedrückt", dann msgbox "Geht doch!"
Dabei spielt es keine Rolle, ob der Mausklick auf der Userform erfolgt oder daneben.
Ich hoffe, di...
03.11.2008 16:54:59
Thread-ID: 1021378
6 Beiträge
Einfügen per Mausklick
Ralf

Hallo Leute!
Kann mir jemand sagen, ob es möglich ist per Mausklick ein "x" in eine Zelle einzufügen und es bei einem weiteren Klick wieder zu löschen? Und ob es möglich ist gleichzeitig wenn ein "X" in der Zeile gesetzt ist die anderen 8 Spalten der Tabelle zu sperren?
Bin für jeden Hi...
06.11.2008 19:20:16
Thread-ID: 1022403
8 Beiträge
Mausklick "löschen"
Polarfuchs

Hallo Ihr Checker,
in einem Programm können mehrere Möglichkeiten zu einer Frage angeklickt werden. Dann wird eine Korrektur vorgenommen und dann in die aktive Userform neue Werte in die Captions der OptionButtons eingefügt.
Mein Problem ist, dass wenn man versehentlich zweimal mit der...
11.11.2008 19:41:57
Thread-ID: 1023657
6 Beiträge
Name des OptionButtons bei Mausklick ausgeben
S.

Hallo zusammen,
ich habe eine Userform, die einen Rahmen enthält, der mit einer variablen Anzahl von Optionbuttons automatisch bestückt wird (Set TextBox, Set OptionButton). Bei Anklicken eines Optionbuttons soll der die Nummer des Optionsbuttons in einer Textbox auf derselben Userform ersc...
14.11.2008 11:25:00
Thread-ID: 1024498
3 Beiträge
UserForm merfach Listbox per mausklick für TexBox
Schmidt

Hallo na alle im Forum,
ich bin neu hier, Heise Robert und fange gerade an mich mit Excel VBA auseinander zu setzen (Anfänger)
Meine Frage:
Übernahme per Mausklick in UserForm - mehrspaltige Listbox in txb1>Spalte1, in txb2>Spalte2,
txb3>Spalte3?
So sieht meine code...
21.02.2009 11:13:10
Thread-ID: 1052578
5 Beiträge
Rectangle und Rechtsmausklick
KlausMö

Guten Abend
Ich habe keine Lösung für das deaktivieren der rechten Maustaste über ein
Rectangle.
Schaut Euch bitte die Beispieldatei an, dort ist mein Problem näher beschrieben.
https://www.herber.de/bbs/user/60365.xls
Vielleich weiß ja jemand eine Lösung.
Danke
Gru...
16.03.2009 19:37:51
Thread-ID: 1060904
3 Beiträge
Anzeige
MonthView regiert nicht auf Mausklick
reiner

Hallo Leute,
ich kann das Kalenderelement MonthView in Office 2007 sowohl auf dem Tabellenblatt einfügen als auch über ein VBA-Formular problemlos öffnen.
Wenn ich jedoch auf einen anderen (als den aktuellen) Tag klicke, passiert nichts.
Wenn ich hingegen MonthView auf einem andere...
16.04.2009 11:28:18
Thread-ID: 1069026
6 Beiträge
TreeView lange Einträge - Mausklick geht nicht
Alfons

Hallo,
in einem TreeView stehen einige Dateinamen die länger sind als das TreeView breit ist
und deshalb rechts nicht komplett angezeigt werden.
Bei Mausklick soll die Datei im WebBrowser1 angezeigt werden.
Das geht bei den langen Dateinamen nur dann wenn ich erst mit dem horizo...
28.07.2009 10:37:09
Thread-ID: 1091606
2 Beiträge
Makro nach Mausklick abhängig vom Zellwert
Fritz_W

Hallo Forumsbesucher,
ich wende mich an die VBA-Kundigen und hoffe auf die Unterstützung bei folgendem Vorhaben:
In der Zelle AH21 meiner Tabelle liefert eine Formel den Zellwert.
Ich würde gerne, dass bei einem Mausklick auf diese Zelle das Makro abläuft, das dem Namen des aktuell...
03.09.2009 13:21:01
Thread-ID: 1100333
3 Beiträge
Aktion beim Mausklick
Rene

Hallo,
ich habe eine eigene Symbolleiste mir gebaut mit einem Pulldownmenü. Mein Problem ist nun, dass mein Makro (MeineListe1) erst dann losläuft, wenn ich eine Auswahl getroffen habe. ich möchte aber mein Makro starten, wenn ich auf die Auswahl klicke, weil ich dann die Liste erst füllen...
21.01.2010 11:49:48
Thread-ID: 1131709
11 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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