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

Zelle auslesen und vergleichen

Zelle auslesen und vergleichen
14.05.2004 13:26:40
Stefan
Ich habe folgende Frage:
Ich habe eine Tabelle mit 50.000 Zeilen. Es geht um einen Einzelverbindungsnachweis.
In Zelle 1 steht die Telefonnummer in Zelle 6 steht die Zuordnung (Bsp.Hans Info kommt von anderer Liste ).
ich suche nach einem Makro das feststellt in Zelle 1 steht was drinn, dann kopiere Inhalt von Zelle 6 nach Zelle 7 nächste Zeile
steht in Zelle 1 nichts drin, kopiere den Inhalt in die Zelle7 bis in Zelle 1 wieder ein Wert steht.
Wer hat eine Idee
Stefan

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zelle auslesen und vergleichen
OliveR
Hi Stefan,
Gruß Oliver

Sub test()
lR = Cells(Rows.count,1).End(xlup).Row
for i = 1 to lR step 1
if Cells(i,1)<> "" Then
Cells(i,7) = Cells(i,6)
else
Cells(i,7) = Cells(i-1,6)
end if
next i
End Sub

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige