Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
276to280
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
276to280
276to280
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zellsuche, Daten übertragen und neue Zeile

Zellsuche, Daten übertragen und neue Zeile
08.07.2003 12:43:25
Sebi
Hallo,
da ich in VBA für Excel noch relativ unbeleckt bin, habe ich grade ein Problem:
Ich möchte in einer Arbeitsmappe von einer Eingabemaske per button etwa zehn Zellinhalte in eine Tabelle übertragen.
Das Makro soll dafür die Daten nehmen und in die zweite Tabelle einfügen.
Soweit so gut.
Die Daten sollen allerdings an einer bestimmten Zeile, die durch eine definierte Kennzeichnung vorgegeben ist, in der neuen Tabelle stehen, und
der neue Datensatz in der Zeile darunter auftauchen, damit da natürlich nichts gelöscht wird.
In der ersten spalte der tabelle steht immer eine Kennzeichnung, zu der die darauf folgenden daten innerhalb der aktuellen Zeile gehören. diese Kennzeichnung kann man auch in der Eingabemaske eingeben.
Jetzt soll das Makro in der Tabelle nach dieser Kennzeichnung suchen, dann DARUNTER die neue Zeile einfügen und mit Inhalt füllen.
Jetzt kommt der Clou: wenn die Kennzeichnung noch NICHT vergeben ist, soll trotzdem eine neue Zeile unter den alten daten angelegt werden, die dann die neue Kennzeichnung enthält und die entsprechenden Daten.
Nur... wie mache ich das.
Danke für die Hilfe schonmal!

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

Betreff
Datum
Anwender
Anzeige
AW: Zellsuche, Daten übertragen und neue Zeile
08.07.2003 22:30:22
Klaus-Dieter
Hallo Sebi,

ich habe für dich auf meiner Internetseite eine Tabelle mit einem Lösungvorschlag zum Download bereitgestellt.
Hier klicken.
Du findest das unter Forenbeiträge.

Gruß Klaus-Dieter
Klaus-Dieter's Excel und VBA Seite


thx!
10.07.2003 11:20:55
Sebi
Jo so klappts, danke für die Hilfe!


AW: Zellsuche, Daten übertragen und neue Zeile
08.07.2003 17:05:35
ChrisL
Hi Sebi

Hier mal ein paar Ansätze.

Die letzte freie Zeile einer Spalte ermittelst du wie folgt.
Dim LetzteZeile As Long
LetzteZeile = Range("A65536").End(xlup).Row + 1

Die Zelle füllst du anschliessend wie folgt ab...
Cells(LetzteZeile, 1) = "xy"

Ein bestimmtes Kürzel in einer Spalte findest du wie folgt.

Dim i As Long

For i = 1 to Range("A65536").End(xlup).Row
If Cells(i, 1) = Kürzel Then
...
Exit For
End If
next i

Sofern du dich auf ein nicht aktives Blatt beziehst, stelle den Bezug wie folgt her...

Sheets("Tabelle1").Range...
bzw.
Sheets("Tabelle1").Cells...

Den Grossteil des Codes den du sonst noch brauchst findest du mittels Makrorekorder raus. Aufzeichnen und anschliessend mit Bearbeiten den Code studieren.

Benutze auch die Recherche und Excel-FAQ.

Gehe Schritt für Schritt vor und wenn du konkrete Fragen hast, kannst du diese im Forum immer stellen.

Gruss
Chris


Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige