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

Neuen Datensatz einfügen über VBA

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

Anzeige

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
;

Forumthreads zu verwandten 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
Felder mit Datum und Uhrzeit vergleichen?
Lauren

Hallo zusammen,
neues Thema neues Glück :)
Nachdem mir bei meinem letzten Projekt tatkräftig geholfen wurde und ich auch das Projekt erfolgreich beenden konnte hier eine neue Problematik an der ich hängengeblieben bin.
Es sind folgende Saplten vorhanden
Spalte A = Datumanfang in...
16.09.2008 16:24:00
Thread-ID: 1010159
6 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
Aktuelles Datum und aktuelle Uhrzeit
Herbert

Hallo Experten,
ich möchte gern in Zelle A1 das aktuelle Datum und die aktuelle Uhrzeit ausgegeben habe. So soll es aussehen: "20.11.2008 11:40:04".
Bin als Laie schon ziemlich überfordert und für jede Hilfe dankbar.
Gruß Herbert
20.11.2008 11:38:00
Thread-ID: 1026354
2 Beiträge
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
Anzeige
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
Anzeige
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
VBA Bedingte Formatierung
Peter

Hallo,
möchte gern das Abhängig von A1 in der ein "w" oder ein "m" steht, das A2:Z22 alles entweder rosa (w)
oder hell bLau (m) ist.
Habt Ihr eine Idee?
Beim Druck soll nachher alles wieder schwarz weiß sein.
Gruß Peter
09.12.2008 22:32:36
Thread-ID: 1031538
20 Beiträge
Anzeige
Verketten von Datum und Uhrzeit
Datum

Hallo Zusammen,
ich möchte ein Datum und eine Uhrzeit die in 2 verschiedenen Zellen stehen verketten. Bei der Verkettung wird das Datums und Uhrzeitformat in Zahlen dargestellt. Wie kann man die Verkettung gestalten, dass die Formate erhalten bleiben?
Gruß Rafi
16.12.2008 14:09:00
Thread-ID: 1033272
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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