Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1392to1396
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
1392to1396
1392to1396
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Neuen Datensatz einfügen über VBA

Neuen Datensatz einfügen über VBA
19.11.2014 09:16:42
Tom
Guten Morgen zusammen,
ich möchte per Button eine von mir definierte Zeile mit allen darin enthaltenen Formatierungen kopieren und als neuen Datensatz einfügen. Wie lässt sich das über VBA am besten lösen?
Zudem soll das manuelle Einfügen einer Zeile unterbunden werden.
Wie lässt sich das über VBA am besten lösen?
Vielen Dank schon einmal vorab.
Gruß Tom

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Neuen Datensatz einfügen über VBA
19.11.2014 10:00:27
Werner
Hallo Tom,
schau dir das Beispiel mal an, das habe ich vor einiger Zeit mal für jemanden gemacht. Bei Doppelklick in eine Zelle der Spalte A öffnet sich eine Eingabebox in der du eingeben kannst, wieviele Leerzeilen eingefügt werden sollen. Im weiteren Verlauf wird die angeklickte Zeile kopiert, darunter eingefügt und die Werte aus der eingefügten Zeile entfernt. So hast du dann eine "leere" Zeile mit den Formeln und Formatierungen der Zeile darüber.
Vielleicht kannst du damit ja was anfangen.
https://www.herber.de/bbs/user/92171.xlsm
Gruß Werner

Anzeige
AW: Neuen Datensatz einfügen über VBA
19.11.2014 10:50:20
Tom
Hallo Werner,
super, das ist es!!!!! Die Eingabebox nehme ich raus und erweitere um eine Zeile nach jedem Doppelklick.
Vielen DANK!!!
Gruß Tom

AW: Danke für die Rückmeldung owT
19.11.2014 10:59:36
Werner

AW: Neuen Datensatz einfügen über VBA
19.11.2014 11:15:28
Tom
Hallo noch einmal,
ich hätte da noch eine Frage.
Durch den Doppelklick der eine neue Zeile einfügt, soll gleichzeitig in der angeklickten Zelle das heute Datum eingefügt werden. Wie muss der Code erweitert werden?
Gruß Tom
Private Sub Worksheet_BeforeDoubleClick(ByVal target As Range, cancel As Boolean)
Dim zeilenanzahl As Long
Dim x As Integer
Dim i As Integer
x = 1
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
If target.Column = 1 Then
On Error GoTo Notausgang
zeilenanzahl = 1
With ActiveCell
For i = 1 To zeilenanzahl
If ActiveCell = "" Then
.EntireRow.Copy
.EntireRow.Offset(x, 0).Insert shift:=xlDown
.EntireRow.Offset(x, 0).PasteSpecial
ActiveCell = 1
.EntireRow.Offset(x, 0).SpecialCells(xlCellTypeConstants).ClearContents
Else
.EntireRow.Copy
.EntireRow.Offset(x, 0).Insert shift:=xlDown
.EntireRow.Offset(x, 0).PasteSpecial
.EntireRow.Offset(x, 0).SpecialCells(xlCellTypeConstants).ClearContents
ActiveCell.Offset(-x, 0).Select
End If
x = x + 1
Next i
.Offset(1, 0).Select
End With
Application.CutCopyMode = False
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Notausgang:
cancel = True
Application.CutCopyMode = False
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Exit Sub
End If
End Su

Anzeige
AW: Neuen Datensatz einfügen über VBA
19.11.2014 11:46:26
Werner
Hallo Tom,
so?
Private Sub Worksheet_BeforeDoubleClick(ByVal target As Range, cancel As Boolean)
Dim zeilenanzahl As Long
Dim x As Integer
Dim i As Integer
x = 1
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
If target.Column = 1 Then
On Error GoTo Notausgang
zeilenanzahl = 1
With ActiveCell
For i = 1 To zeilenanzahl
If ActiveCell = "" Then
.Value = Date
.EntireRow.Copy
.EntireRow.Offset(x, 0).Insert shift:=xlDown
.EntireRow.Offset(x, 0).PasteSpecial
.EntireRow.Offset(x, 0).SpecialCells(xlCellTypeConstants).ClearContents
Else
.EntireRow.Copy
.EntireRow.Offset(x, 0).Insert shift:=xlDown
.EntireRow.Offset(x, 0).PasteSpecial
.EntireRow.Offset(x, 0).SpecialCells(xlCellTypeConstants).ClearContents
ActiveCell.Offset(-x, 0).Select
.Value = Date
End If
x = x + 1
Next i
.Offset(1, 0).Select
End With
Application.CutCopyMode = False
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Notausgang:
cancel = True
Application.CutCopyMode = False
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Exit Sub
End If
End Sub
Gruß Werner

Anzeige
AW: Neuen Datensatz einfügen über VBA
19.11.2014 13:10:53
Tom
Hallo Werner,
noch nicht ganz....das Datum soll sofort bei der Erstellung der neuen Zeile in der neuen Zelle einfügt werden. Aktuell wird das Datum für die Zelle davor, beim Neueinfügen einer Zeile gesetzt.
Gruß Tom

AW: Neuen Datensatz einfügen über VBA
19.11.2014 14:26:21
Werner
Hallo Tom,
dann schau dir mal an was du geschrieben hattest: "In der angeklickten Zelle soll das Datum eingefügt werden". Tatsächlich soll das Datum jetzt aber in der neuen Zelle eingetragen werden.
Ich hab jetzt mal die ganzen Variablendeklarationen und das For - Next raus geschmissen, das war nur nötig in Verbindung mit der Eingabebox. Zudem habe ich die IF-Abfrage raus geschmissen, die war/ist nur nötig wenn auch bei/nach leeren Zellen in Spalte A eine Leerzeile eingefügt werden sollte.
Private Sub Worksheet_BeforeDoubleClick(ByVal target As Range, cancel As Boolean)
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
If target.Column = 1 Then
On Error GoTo Notausgang
With ActiveCell
.EntireRow.Copy
.EntireRow.Offset(1, 0).Insert shift:=xlDown
.EntireRow.Offset(1, 0).PasteSpecial
.EntireRow.Offset(1, 0).SpecialCells(xlCellTypeConstants).ClearContents
.Offset(1, 0) = Date
.Offset(1, 0).Select
End With
Application.CutCopyMode = False
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Notausgang:
cancel = True
Application.CutCopyMode = False
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Exit Sub
End If
End Sub
Gruß Werner

Anzeige
AW: Neuen Datensatz einfügen über VBA
20.11.2014 10:49:56
Tom
Hallo Werner,
stimmt, sorry! Ja, jetzt ist es perfekt. Herzlichen Dank!
Gruß Tom

AW: Danke für die Rückmeldung
20.11.2014 17:53:56
Werner

AW: Neuen Datensatz einfügen über VBA
19.11.2014 11:48:42
Matthias
Hallo
Ganz schön viel Aufwand um nur eine Zeile zu kopieren
'Rows(DeineZeile).Copy Destination:=Rows(ZielZeile) 
 Rows(2).Copy Destination:=Rows(4)

So wird die Zielzeile allerdings überschrieben.

So wird nach unten verschoben
Rows(DeineZeile).Copy
Rows(ZielZeile).Insert Shift:=xlDown
Application.CutCopyMode = False
Ein Beispiel:
https://www.herber.de/bbs/user/93869.xlsm
Gruß Matthias
Anzeige

300 Forumthreads zu ähnlichen Themen

VBA Ausgabe in neue Datei
MarkusL

Hallo,
ich habe folgendes Problem:
In einer Datei befinden sich nachfolgende Datensätze
Jahr Monat Feld_1 Feld_2 Feld_3 Feld_4 Feld_5 usw.
es sollen nun per VBA nach Abfrage von Jahr und Monat ein neuer Datensatz in einer neuen Datei erzeugt werden, der allerdings nur noch die F...
08.08.2008 17:42:00
Thread-ID: 1000377
3 Beiträge
Anzeige
Dateiformat nicht erkennabar (VBA)
Richard

hallo
hab da ein vba-skript, das beim unteren der beiden Zeilen eine Fehlermeldung bringt:
CreateObject("Scripting.FileSystemObject").CopyFile "C:\Program Files\" & Dateiname_neu, "C:\Program Files\Kopie.txt", True
Workbooks.OpenText FileName:="C:\Program Files\Kopie.txt" _
02.10.2008 19:52:02
Thread-ID: 1013959
2 Beiträge
VBA heutiges Datum finden und Inhalt der Zelle prü
NeptunesChild

Hallo Leutz,
ich möchte in einer Zeiterfassung auf einem Monatsblatt das heutige Datum finden, dann in einer anderen Spalte (5 weiter links) eine Uhrzeit eintragen. Zuvor soll aber die Kontrolle erfolgen, ob in der Zelle bereits etwas steht und ob dies kleiner ist, als die aktuelle Zeit. We...
06.11.2008 15:38:08
Thread-ID: 1022323
3 Beiträge
Anzeige
Formatierung Daten in Prozent fortlaufend
Wolfgang

Guten Morgen,
ich möchte unter einer Tabellenspalte mit Daten von z.B. (Spalte A =5, Spalte B =17, Spalte C =32.... bis Spalte X = 790) eine Formatierung bzw. Formel erstellen die mir automatisch, unter jeder Spalte, die jeweiligen Prozente der oberen Zahlen anzeigt
- wobei unter Spalt...
21.11.2008 07:54:55
Thread-ID: 1026590
7 Beiträge
Datenquelle eines Diagramms mit VBA verändern
mgr

hallo, ihr excel-götter!
leider hab ich im archiv nichts entsprechendes gefunden und werfe mein anliegen daher hier ein.
ich habe eine datei, die daten statistisch aufbereitet, unter anderem in form eines torten-diagramms.
dieses tortendiagramm wird mit daten befüllt, die durch eine...
21.11.2008 11:45:45
Thread-ID: 1026676
4 Beiträge
Produktdaten aus einer Liste mit VBA verwenden
Niklas

Hello Leute!
Ich arbeite gerade an einem Programm, welches mit Excel VBA programmiert wurde!
Das Programm dient dem Berechnen einer Übertemperatur in Schaltschränken!
Jetzt ist es notwendig, dass man verschiedene Einsätze ( Die Dinge die im Schaltschrank drinnen sind) auswählen kann...
03.12.2008 14:37:00
Thread-ID: 1029841
2 Beiträge
Datum und Uhrzeit mit einem Tastendruck
P.

Hallo.
ich möchte eine Art Zeiterfassung einrichten. Hierbei soll mit einem Tastendruck Datum und Uhrzeit in einer Zelle erscheinen. Das für Start, Pausenanfang, Pauseneendeund Ende. Anschließend will ich die verbrauchte Zeit ausrechnen.
Kann mir jemand helfen? Im Archiv habe ich nicht...
06.12.2008 13:05:21
Thread-ID: 1030655
13 Beiträge
VBA Querdruck DinA5 auf DinA4 Hochformat
Peter

Hallo,
habe eine Userform die ich aufrufe, dort sind 2 CommandButtons auf die entweder auf DinA5 oder DinA4 gedruckt werden soll.
Habe nun den Makrorecorder laufen lassen.
Private Sub CommandButton1_Click() 'Sub Karte_Druck() ' Karte_Druck Makro Din A 4 Application.ScreenUpdating...
07.12.2008 11:40:36
Thread-ID: 1030830
3 Beiträge
Anzeige

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
2
5
1
2
1
6
3
1
12
2
19
4
3
1
6
3
4
1
3
11
2
4
1
6
1