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

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


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

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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige