kopiert/eingefügten Wert,- Text hinzufüg

LZ_g = Sheets("Plan1").Cells(Rows.Count, 9).End(xlUp).Row + 1 Sheets("DATA").Columns(176).Cells.SpecialCells(xlCellTypeConstants, 16).Offset(0, -17).Resize(500, 1).Copy Sheets("Plan1").Range("I" & LZ_g)

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Fred,
with Sheets("Plan1")
.Range(.Cells("J" & LZ_g)),.Cells("J" & LZ_g+LZ_G))="ABC"
End With
Zu Deiner Datei kann ich nichts schreiben, was wohl daran liegt das ich nicht auf fremde Rechner schaue.Ich baue keine Datei nach.
Sollte die Datei verlinkt werden?
Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten
http://www.ms-office-forum.de/forum/showthread.php?t=322895
ändern.
Bilder lade ich mir nicht runter, da Excel damit nichts anfangen kann.
http://www.excel-ist-sexy.de/bilder-statt-datei/
Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.
Das ist nur meine Meinung zu dem Thema.
http://www.excel-ist-sexy.de/bilder-statt-datei/
Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.
Das ist nur meine Meinung zu dem Thema.
Falls Link nicht ausgeführt wird:
1. Link kopieren
2. rechte Maustaste neues Fenter.
3. Umschaltstaste drücken und Klick auf den Link
4. STRG+ Link mit Maus aktivieren

With Worksheets("Plan1") LZ_g = .Cells(.Rows.Count, "I").End(xlUp).Row + 1 Sheets("DATA").Columns(176).Cells.SpecialCells(xlCellTypeConstants, 16) _ .Offset(0, -17).Resize(500, 1).Copy .Range("I" & LZ_g) .Range(.Cells(LZ_g, "J"), .Cells(.Cells(.Rows.Count, "I").End(xlUp).Row, "J")) = "ABC" End With

Hallo Werner,
dein Makro führt genau das aus, was ich hier angefragt habe.
Aber Hajo hat schon recht, dass eine Beispielmappe die Anfrage / Lösung meist vereinfacht.
Hätte ich dies sofort gemacht, wäre evt. meine "Zusatzfrage" nicht nötig.
Allerdings gibt es doch keine "Zusatzfrage",- da selbst gelöst.
Nun habe ich zB eine weitere Filterung (Filter 4),- die Daten werden ebenfalls in Blatt "Plan1" eingefügt. Ich würde nun das eine Makro duplizieren und nur den Text "Filter 1" in "Filter 4" ändern.
Ist aber wohl nicht effektiv ..
.. habe also dem Blatt "DATA" eine Zelle zugeordnet, die angibt, welcher Filter gerade aktiv ist.
Somit brauche ich nur 1 Makro,- was anstatt den Text den Zellwert entsprechender Zelle einträgt.
https://www.herber.de/bbs/user/143263.xlsb
Hajo, dennoch Danke für deine Hilfsbereitschaft & Danke an Werner für die funktionierende Makro-Ergänzung !!
Gruss
Fred

Beliebteste Forumthreads (12 Monate)

kopiert/eingefügten Wert,- Text hinzufüg

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread