Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1268to1272
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
Inhaltsverzeichnis

Zellwerte übertragen

Zellwerte übertragen
mehmet
Hallo Forum,
leider bekomme ich folgendes nicht gelöst:
Werte in Spalte CN sollen dort eingetragen werden wo in Spalte CO die Zellbezüge stehen
Wenn Bsp in Zelle CN4 "Auto" steht, dann soll in Zelle BF34 auch "Auto" stehen
(mit ganz gleiche Formate von CN4
Aber die Information von BF34 Bezug steht in Zelle CO4.
Dank im Voraus
Gruss
mehmet
https://www.herber.de/bbs/user/80915.xls

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

Betreff
Benutzer
Anzeige
AW: Zellwerte übertragen
10.07.2012 16:29:34
Erich
Hi Mehmet,
probier mal

Option Explicit               ' immer zu empfehlen
Sub Uebertrag()
Dim lngLast As Long, lngZ As Long
With Worksheets("Tabelle1")
lngLast = .Cells(.Rows.Count, 92).End(xlUp).Row
If lngLast > .Cells(.Rows.Count, 93).End(xlUp).Row Then _
lngLast = .Cells(.Rows.Count, 93).End(xlUp).Row
For lngZ = 4 To lngLast
If .Cells(lngZ, 92)  "" And .Cells(lngZ, 93)  "" Then _
.Range(.Cells(lngZ, 93)).Value = .Cells(lngZ, 92)
Next lngZ
End With
End Sub

Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich
AW: Zellwerte übertragen
10.07.2012 16:40:08
mehmet
Hi Erich,
super, klappt. Dank Dir herzlich.
Nur die Formatübernahme fehlt noch.
Gruss
mehmet
Anzeige
auch Formate übertragen
10.07.2012 17:07:07
Erich
Hi Mehmet,
die Formate hatte ich völlig übersehen. Der folgende Code überträgt sie,
allerdings nicht von Spalte CN (hast du oben geschrieben),
sondern von CO (sinnvoller nach der Beispieltabelle):

Option Explicit               ' immer zu empfehlen
Sub Uebertrag()
Dim lngLast As Long, lngZ As Long
With Worksheets("Tabelle1")
lngLast = .Cells(.Rows.Count, 92).End(xlUp).Row
If lngLast > .Cells(.Rows.Count, 93).End(xlUp).Row Then _
lngLast = .Cells(.Rows.Count, 93).End(xlUp).Row
For lngZ = 4 To lngLast
If .Cells(lngZ, 92)  "" And .Cells(lngZ, 93)  "" Then
.Cells(lngZ, 93).Copy .Range(.Cells(lngZ, 93).Value)
.Range(.Cells(lngZ, 93)).Value = .Cells(lngZ, 92)
End If
Next lngZ
End With
End Sub
Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich
Anzeige
AW: auch Formate übertragen
10.07.2012 17:12:30
mehmet
Super, klappt.
Dank Dir.
Ich hatte schon probiert:
.Range(.Cells(lngZ, 93)).Value = .Cells(lngZ, 92)
.Range(.Cells(lngZ, 93)).Font.ColorIndex = .Cells(lngZ, 92).Font.ColorIndex
.Range(.Cells(lngZ, 93)).Interior.ColorIndex = .Cells(lngZ, 92).Interior.ColorIndex
.Range(.Cells(lngZ, 93)).Interior.Pattern = .Cells(lngZ, 92).Interior.Pattern
Ging aber nicht.
Werde mir jetzt dein Code anschauen.
Herzlichen Dank nochmal
Gruss
mehmet

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige