Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Daten archvieren mit VBA

Forumthread: Daten archvieren mit VBA

Daten archvieren mit VBA
22.11.2006 19:52:18
Matthias
Hi,
folgendes möchte ich mit einem VBA-Makro realisieren:
in einem Eingabeblatt werden Datensätze eingegeben, die nach der Eingabe in einem anderen Tabellenblatt archiviert werden sollen. Dabei soll immer die nächste freie Spalte verwendet werden (d.h. steht in Spalte B schon etwas, soll der Datensatz in Spalte C geschrieben werden usw.).
Weiterhin soll bei einem Doppelklick auf den Namen im Archiv der Datensatz zurück in das Eingabeblatt geschrieben werden. Hier die Datei: https://www.herber.de/bbs/user/38420.xls
Ich freue mich über Vorschläge!
Gruß
Matthias
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten archvieren mit VBA
22.11.2006 20:17:05
Rudi
Hi,
widerspricht allen Regeln datenbankähnlicher Strukturen, du handelst dir Probleme ein, die später nur mit großem Aufwand ausbügeln kannst, machs klassisch, jeder Datensatz eine Zeile.
mfg Rudi
AW: Daten archvieren mit VBA
22.11.2006 21:05:05
Matthias
Hi,
auch wenn die Datenbankfunktion hier nicht so wichtig ist, hast Du Recht. Ich habe die Datei mal entsprechend geändert: https://www.herber.de/bbs/user/38421.xls
Matthias
Anzeige
AW: Daten archvieren mit VBA
23.11.2006 06:57:35
Erich
Hallo Matthias,
probiers mal mit
- einem Commandbutton auf dem "Eingabeblatt" mit dem Code
Option Explicit
Private Sub CommandButton1_Click()
Dim lngL As Long
With Sheets("Archiv")
lngL = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Range(.Cells(lngL, 1), .Cells(lngL, 6)) = WorksheetFunction.Transpose(Range("B4:B9"))
End With
End Sub
- und im Code von "Archiv":
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target(1), [A6:A65536]) Is Nothing Then Exit Sub
With Sheets("Eingabeblatt")
.Range("B4:B9") = _
WorksheetFunction.Transpose(Range(Target(1), Cells(Target(1).Row, 6)))
.Select
.[B4].Select
End With
Cancel = True
End Sub
Wegen "VBA nein" hier auch gleich die Mappe:
https://www.herber.de/bbs/user/38424.xls
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige