Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Kopieren mit Makro

Forumthread: Kopieren mit Makro

Kopieren mit Makro
rolf
hallo
ich möchte eine telefonliste ordnen ca.2300 kontakte (nummern).
frage ?
wenn af1 leer ist soll der inhalt aus ag1 hinein kopirt werden,falls vorhanden.
wenn af1 besetzt ist bleibt alles beim alten.
in spalte d (Name) kann man das ende der liste finden.
mfg rolf
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Kopieren mit Makro
29.09.2009 20:16:53
robert
hi,
schau mal ob es passt
gruß
robert
Sub tt()
Dim lz%, i%
lz = Cells(Rows.Count, 4).End(xlUp).Row
For i = 1 To lz
If Cells(i, 32) = "" Then
Cells(i, 32) = Cells(i, 33)
End If
Next i
End Sub

AW: Kopieren mit Makro
29.09.2009 20:30:43
rolf
hallo robert
das kopieren hat funktioniert.
aber sorry.
ich hätte besser auschneiden gesagt,sonst habe ich sie alle doppelt.
vielleich kannst du mir noch einmal helfen
mfg rolf
Anzeige
AW: Kopieren mit Makro
29.09.2009 20:39:00
robert
hi,
meinst du so ?
gruß
robert
Sub tt()
Dim lz%, i%
lz = Cells(Rows.Count, 4).End(xlUp).Row
For i = 1 To lz
If Cells(i, 32) = "" Then
Cells(i, 32) = Cells(i, 33)
Cells(i, 33).ClearContents
End If
Next i
End Sub

AW: Kopieren mit Makro
29.09.2009 20:46:06
rolf
hallo robert
perfekt ! das habe ich gesucht.
danke mfg rolf
Anzeige
;

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