Datenbank Eingabe

[alden]

eine schönen guten Tag an alle,

ich bin auf der Suche , wie ich eine größere Anzahl Zellen mittels Makro übertragen kann.
Leider kann ich diese nur in Einzelschritte machen ( zu wenig Ahnung von Makro´s ).
Vielleicht kann mir ja einer helfen.

Vielen Dank im voraus.

Gruss

Alden

[snb]

Verzichte auf verbundene Zellen.

[Fennek]

Hallo,

gelbe Zellen kann ich noch erkennen, aber warum in Zeile 7 keine Zahlen und Spalte AF verbunden ist, erschließt sich mir nicht.

D.h. die Ranges müssen angepasst werden:

Code:

sub F_en()
dim rng as range
set rng = Sheets("Vorlage").range("H7:AE18")
with sheets("Datenbank")
lr = .cells(rows.count,1).end(xlup).row+1
.cells(lr,1) = Sheets("Vorlage").cells(2,"Z").value
for i = 1 to rng.rows.count
    rng.rows(i).copy .cells(lr,columns.count).end(xltoleft).offset(,1)
next i
end with
end sub

mfg

[alden]

hallo,

erst mal vielen Dank für die schnelle Antwort.

bei diesem Auschnitt handelt es sich um ein Formularblatt nach meinen Bedürfnissen angepasst.
Wie erweitere ich diese Formel, wenn noch einige Zellen und weitere kleine Blocks benötigt werden.
Oder kann man auch ein Makro kreieren, welche nicht alle gesperrte Zellen von links nach rechts zur Datenbank kopiert.

mfg

Alden

[Fennek]

Guten Morgen,

auch nach 3x Lesen verstehe ich die Antwort nicht.

Hast du den Code gestestet?

mfg

[alden]

hallo,

ja ich habe den Code getestet und er funktioniert super.

Also ich habe ein Formblatt was ich jeden Tag ausfüllen muss. Diese eingetragene Daten sollen dann zur Datenbank kopiert werden.
Was ja mit der Formel gut funktioniert.
Selbst die Formate werden mitgenommen, Toll.

Der einfachhalber lade ich nochmal die Datei hoch,wo es optisch besser dargestellt ist.
Wäre schön, wenn Du mir weiterhin helfen könntst.

mfg

Alden

[schauan]

Hallo Alden,

in Deinem letzten Post schreibst Du, was alles funktioniert ... Wo klemmt's denn nun noch?

[alden]

Hallo,

ich würde gerne den oben aufgeführten Code um einige Zellen und Reihen erweitern.
Aber mit meinen Kenntnissen wird das wohl eine Jahresbaustelle.
Bin für jede noch so kleine Hilfe Dankbar, die ich bekommen kann.

gruss Alden

[schauan]

Hallo ALden,

in der Datei ist nur ein Code zum Kopieren. Die letzte Kopie geschieht hier:

.Cells(loLetzte, 85) = Worksheets("Vorlage").Range("A48")

loLetzte ist ein Wert für die letzte gefundenen oder erste freie Zeile
85 ist die Spalte
A48 ist eine Adresse.

Wenn Du z.B. was in die nächste Spalte einfügen willst, dann kopiere die Zeile und füge sie nochmal darunter ein, und dann änderst Du das eine oder andere.

.Cells(loLetzte, 86) = Worksheets("Vorlage").Range("A49")

Ich habe hier z.B. aus der 85 eine 86 gemacht, also eine Spalte weiter rechts, und aus A48 A49, also hole ich Daten aus der nächsten Zelle in Spalte A