Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 07:35:33
Matrix auslesen und in Liste umwandeln
17.04.2024 21:55:37
Preiserhöhung über mehrere Jahre berechnen
17.04.2024 20:19:32
Endzeitpunkt berechnen aus d:hh:mm errechnen
17.04.2024 18:57:33
Errinnerungsfunktion
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1652to1656
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
1652to1656
1652to1656
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

klick auf Button fügt Zeile darunter

klick auf Button fügt Zeile darunter
29.10.2018 13:10:32
Michael
Hallo,
ich möchte beim aktivieren eines Buttons die Zeile mit Inhalt kopieren und darunter einfügen. Dabei sollen alle darunter stehenden Zeilen entsprechend weiterrutschen.
Es handelt sich um die Zeile in der der Button sich befindet. Also sinngemäß wie: 

Sub Zeileeinfügen()
Zeile der Activen Zelle Markieren
Zeile Kopieren
Zeile darunter einfügen
restliche Zeilen rutschen um eine Zeile weiter runter
End Sub

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: klick auf Button fügt Zeile darunter
29.10.2018 13:22:21
EtoPHG
Hallo,
ActivexButton einfügen, doppelklicken, dieser Code einfügen: 
Private Sub CommandButton1_Click()
ActiveCell.Offset(1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
' ggf nächste Codezeile Kommentarzeichen entfernen
'ActiveCell.Offset(1).Activate
End Sub
Gruess Hansueli
oops, kopieren vergessen
29.10.2018 13:24:45
EtoPHG
Hallo 
Private Sub CommandButton1_Click()
ActiveCell.Offset(1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
ActiveCell.EntireRow.Copy ActiveCell.Offset(1)
' ggf nächste Codezeile Kommentarzeichen entfernen
'ActiveCell.Offset(1).Activate
End Sub
Gruess Hansueli
Anzeige
AW: oops, kopieren vergessen
29.10.2018 13:34:54
Michael
funktioniert leider nicht, es wird lediglich unter der Zelle in der man sich befindet eine leere Zelle eingefügt.
Dann hast du den 1. statt den 2. Code genommen
29.10.2018 14:11:03
EtoPHG

AW: oops, kopieren vergessen
02.11.2018 14:13:22
Michael
Das funktioniert jetzt, jedoch werden verbundene Zellen wieder getrennt.
Gibt es dafür eine Lösung?
Mach eine iTabelle (Ctrl-L) aus den Daten (owT)
03.11.2018 11:59:31
EtoPHG

43 Forumthreads zu ähnlichen Themen

Abfrage ob Klick auf Button erfolgt ist
Frank

Hallo Zusammen!!!
Wieder einmal eine Frage: Mittels einer UF werden Daten in ein Tabellenblatt geschrieben. Auf der UF befinden sich 4 CommandButton, welche Daten in das Tabellenblatt eintragen. Der 5. Button schließt dann die UF. Nun möchte ich, dass wenn der User auf den 5. Button klickt...
13.07.2010 15:24:22
Thread-ID: 1166887
4 Beiträge
Anzeige
Beim Klick auf Abbrechen Makro beenden
chandler

Hallo,
wenn im nachfolgenden Makro auf die Schaltfläche Abbrechen geklickt wird bleibt das Makro stehen und wird nicht beendet. On Error Resume Next hilft nicht. Sub Test() 'Test ChDrive Left(CurDir, 1) ChDir CurDir Dim z As Range Dim search As String Set wbtarget = ThisWorkbook.Worksheets...
05.11.2012 14:39:02
Thread-ID: 1285354
5 Beiträge
Optionsbutton ausblenden funzt nur bei klick
EarnyToLearny

Liebe Excel-Profis,
es sollen 2 Optionsbuttons (nicht aus Formular erstellt) ausgeblendet werden, wenn ein Wert 1 in Zelle R25 steht. Funktioniert mit folgenden Code: Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.ScreenUpdating = False If Sheets("Tabelle1").Range(...
26.01.2013 17:07:38
Thread-ID: 1296107
5 Beiträge
Anzeige
Bei Klick auf Checkbutton soll Gedruckt werden
Langmantl

Hallo,
bei Klick auf Checkbutton soll selektiert werden, ob die Datei in Farbe oder in Schwarzweiß gedruckt wird und es soll mittels inputbox die Anzahl der kopien definierbar sein, danach drucken.
Wie lautet hierzu der Code?
05.11.2014 14:49:50
Thread-ID: 1390643
3 Beiträge
Klick auf CommandButton, Link nicht öffnen
Propman

Hallo,
ich habe eine kleine Testdatei hier aufgebaut:
https://dl.taikocloud.com/download.php?id=115&token=EkfT3Bffiltj4gpJfsfDbzEfW6dkU4Jp
(Wie schon mehrfach geschrieben ist es mir leider nicht möglich vom Mac aus irgendwelche Dateien bei Herber hochzuladen, weder mit Safari no...
01.03.2015 12:15:54
Thread-ID: 1412078
3 Beiträge
Aufrufenden cmdButton eines UF bestimmen
Wusel

Hallo zusammen,
ich habe mal wieder ein kleines Problem und hoffe man kann mir hier weiterhelfen :)
Ich habe ein Userform(UF1) gebaut und möchte dies nun von 2 verschiedenen anderen Userforms(UF2/UF3) aufrufen. Je nachdem ob UF2 oder UF3 aufruft soll UF1 aber anders befüllt werden. Jetz...
03.06.2015 22:27:42
Thread-ID: 1429182
5 Beiträge
Button auf Homepage klicken
Hermann

Hallo zusammen,
nach erfolgloser Suche & Testen habe ich es nun aufgegeben und benötige Hilfe von einem Experten.
Ich möchte mittels eines VBA einen bestimmten Button auf dieser Homepage klicken: "http://www.unternehmen24.info/Firmeninformationen/DE/4232667"
Freue mich um Suppor...
30.06.2016 18:28:50
Thread-ID: 1501912
4 Beiträge
Datum perKlick auf Button einfügen
Frank

Hallo,
ich habe eine Textbox, diese soll sich nach drücken eines Buttons mit dem aktuellen Datum füllen.
Wie kann ich dies lösen?
Vielen Dank
22.11.2016 13:05:55
Thread-ID: 1526318
3 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
9
4
4
32
2
2
4
3
2
5
4
2
2
8
1
2
22
7
1
1
1
3
1
5