Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1292to1296
1292to1296
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellinhalt überschreiben?

Forumthread: Zellinhalt überschreiben?

Zellinhalt überschreiben?
04.01.2013 18:45:31
Selma
Hallo Leute,
wie kann ich per VBA ab Zeile 2 bis letzte benutzte Zelle der Spalte A folgendes erreichen:
Nur wenn in Spalte U ein Zellinhalt steht, dann diesen über den Zellinhalt in Spalte M überschreiben. Danach kann das kopierte Zellinhalt in Spalte U gelöscht werden.
Danke im Voraus!
Gruß,
Selma

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Zellinhalt überschreiben?
04.01.2013 19:23:00
robert_1
Hoffe mal ich hab es richtig verstanden:
for i=2 to usedrange.rows.count
if not(isempty(cells("U"& i)) then
cells("M"&i) = cells("U"&i)
cells("U"&i)= ""
endif
next i

AW: Zellinhalt überschreiben?
04.01.2013 20:28:07
Selma
Hallo Robert,
irgendwie passt es nicht...
Gruß,
Selma

Anzeige
AW: Zellinhalt überschreiben?
04.01.2013 22:01:28
ing.grohn
Hallo Selma,
probier mal 

Sub ZellenKopieren()
Dim Anzahl As Long
Dim I As Long
Dim ws As Object
Dim rg As Range
'Anzahl = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Set ws = ActiveSheet 'anpassen
Set rg = ws.Columns("A:A") 'anpassen
'Adresse der Zelle
'Debug.Print rg.SpecialCells(xlCellTypeLastCell).Address(0, 0)
'Spalte der Zelle
'Debug.Print rg.SpecialCells(xlCellTypeLastCell).Column
'Zeile der Zelle
'Debug.Print rg.SpecialCells(xlCellTypeLastCell).Row
Anzahl = rg.SpecialCells(xlCellTypeLastCell).Row
For I = 2 To Anzahl
If Cells(I, 21).Value  "" Then
Cells(I, 13).Value = Cells(I, 21).Value
Cells(I, 21).Value = ""
End If
Next I
End Sub

MfG
Albrecht

Anzeige
AW: Zellinhalt überschreiben?
04.01.2013 23:34:19
Selma
Hallo Albrecht,
perfekt... DANKE!!!
Gruß,
Selma

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige