| | | Wie Sie mit 3D-Druck glattere Oberflächen erhalten, eine Pressemitteilung
|
Autor
|
Thema: For Each i in Array(Cells(1,1).value (424 / mal gelesen)
|
Bernd P Ehrenmitglied V.I.P. h.c. cook-general
Beiträge: 3424 Registriert: 07.06.2001 W10-64bit, AMD Ryzen 7 3700X,32GB RAM, Sapphire Pulse Radeon RX 570 8G G5, Canon TX-3000 MFP, Maus Cherry MW4500, Sub:Infrastructure Design Suite, Office 365
|
erstellt am: 18. Apr. 2017 18:55 <-- editieren / zitieren --> Unities abgeben:
Servus, ich will ein Array über Cellwerte definieren "2, 3, usw." aber ich krieg das nicht mit den Variablen hin. Ziel soll sein das er in Abhängigkeit von diesen Werten Zellen erneuert. Code:
sub test c = ActiveCell.Column r = ActiveCell.Row For Each i in Array(Cells(1,1).Value) Cells(8, i).Copy Cells(r, c).Select Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False next end sub
------------------ <----- Bitte Systeminfo eintragen, warum siehst du hier. Schöne Grüsse aus der Steiermark Bernd P. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
KlaK Ehrenmitglied V.I.P. h.c. Dipl. Ing. Vermessung, CAD- und Netz-Admin
Beiträge: 2799 Registriert: 02.05.2006 Office 2010; Office365 Visual Basic
|
erstellt am: 19. Apr. 2017 02:11 <-- editieren / zitieren --> Unities abgeben: Nur für Bernd P
Hallo Bernd, Was steht bei Dir in A1 ? Ich vermute mal ein String mit mehreren Zahlen wie oben angegeben aber keine Datenliste wie für ein Array erforderlich. D.h. Du mußt Dir diese Datenliste erst einmal erzeugen. Dies kannst Du über die Split-Funktion machen. In Deinem weiteren Programm ist noch ein weiterer Fehler denn alle Werte werden in das gleiche selektierte Feld kopiert. Ich arbeite hier nur ungern mit der Select-Funktion und weise lieber den Feldern direkt die Werte zu. Aber das wirst Du ja jetzt hinbekommen Code:
Sub test() Dim A As Variant ' Definiert das Datenfeld Dim ArrayWert As Variant Dim i As Long c = ActiveCell.Column r = ActiveCell.Row' For Each i in Array(Cells(1,1).Value) ' kann nicht funktionieren, nur ein Arrayfeld A = Split(Cells(1, 1), ",") For Each ArrayWert In A i = CLng(ArrayWert) Cells(8, i).Copy ' Cells(r, c).Select ' <= Immer die gleiche Zelle !! Cells(r, i).Select Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Next End Sub
Grüße Klaus
[Diese Nachricht wurde von KlaK am 19. Apr. 2017 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Bernd P Ehrenmitglied V.I.P. h.c. cook-general
Beiträge: 3424 Registriert: 07.06.2001
|
erstellt am: 21. Apr. 2017 14:45 <-- editieren / zitieren --> Unities abgeben:
|
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
|