Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
26.04.2024 11:38:46
Acrobat PDF Formularfelder mit Excel ausfüllen
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
820to824
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
820to824
820to824
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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