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

kopieren in nächste freie zelle

Forumthread: kopieren in nächste freie zelle

kopieren in nächste freie zelle
22.09.2002 21:16:39
regina
Hallo Excelgemeinde,

mein Makro funktioniert leider nicht so ganz wie geplant,
ich möchte daten aus der Tab(zahlungen),
in die tab(Daten) kopieren, wenn der suchbegriff aus der Tab (daten)Spalte B, mit der TAb(Zahlungen) Spalte C übereinstimmt.
Dann sollen die Werte aus der Tab(zahlungen)Spalte E,
in Tab (Daten) Spalte D kopiert werden.
In der tab (Daten) gibt es den Suchbegriff nur immer einmal.
In der Tab(Zahlungen) ist der Schbegriff mehrfach vorhanden.

Problem, ist bereits ein wert in (DAten)Spalte D soll die nächste Spalte genommen werden,also Spalte E evtl. noch F oder G.
klappt leider nicht
ich habe in spalte D + E die selben Werte stehen.
Was hab ich falsch gemacht

für Hilfe wäre ich dankbar.
Gruß Regina


Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: kopieren in nächste freie zelle
22.09.2002 21:19:30
PeterW
Hallo Regina,

und wie sieht Dein Makro aus?

Gruß
Peter

Re: kopieren in nächste freie zelle
22.09.2002 21:24:41
Regina
Hallo Peter,
Sorry hab ich vergessen!

Sub GFSÜbertragen()
Dim i As Long
Dim j As Long
For j = 2 To Worksheets("zahlungen").UsedRange.Rows.Count
For i = 2 To Worksheets("daten").UsedRange.Rows.Count
If Worksheets("daten").Cells(i, 2) = Worksheets("Zahlungen").Cells(j, 3) Then
If IsEmpty(Worksheets("daten").Cells(i, 4)) Then
Worksheets("daten").Cells(i, 4) = Worksheets("zahlungen").Cells(j, 5)
If Not IsEmpty(Worksheets("daten").Cells(i, 4)) Then
Worksheets("daten").Cells(i, 5) = Worksheets("zahlungen").Cells(j, 5)
End If

End If
End If
Next
Next
End Sub

Anzeige
Re: kopieren in nächste freie zelle
22.09.2002 21:43:11
PeterW
Hallo Regina,

bau für die ZielSpalte eine zusätzliche Variable ein.
Do Until is Empty "Daten"...
ZielSpalte = ZielSpalte +1
Loop

Hoffentlich reicht das als Ansatz.

Gruß
Peter

Re: klaapt nicht kopieren in nächste freie zelle
22.09.2002 21:56:21
regina
hallo,

klappt leider nicht so recht, ich weiß nicht an welcher Stelle ich das einfügen soll bzw. was ich ersetzen muß.

wäre noch mal für Hilfe dankbar.

gruß regina

Anzeige
Re: klaapt nicht kopieren in nächste freie zelle
22.09.2002 22:05:39
PeterW
Hallo Regina,

so sollte es gehen

Gruß
Peter

Re: klaapt nicht kopieren in nächste freie zelle
22.09.2002 22:13:12
regina
Hallo Peter,
VielenDank klappt prima!!!!!!!!!!!!!!

Gruß Regina

;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

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