Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  Excel
  For Each i in Array(Cells(1,1).value

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
Autor Thema:  For Each i in Array(Cells(1,1).value (362 mal gelesen)
Bernd P
Ehrenmitglied V.I.P. h.c.
cook-general



Sehen Sie sich das Profil von Bernd P an!   Senden Sie eine Private Message an Bernd P  Schreiben Sie einen Gästebucheintrag für Bernd P

Beiträge: 3358
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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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



Sehen Sie sich das Profil von KlaK an!   Senden Sie eine Private Message an KlaK  Schreiben Sie einen Gästebucheintrag für KlaK

Beiträge: 2624
Registriert: 02.05.2006

Office 2010; Office365
Visual Basic

erstellt am: 19. Apr. 2017 02:11    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Bernd P 10 Unities + Antwort hilfreich

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



Sehen Sie sich das Profil von Bernd P an!   Senden Sie eine Private Message an Bernd P  Schreiben Sie einen Gästebucheintrag für Bernd P

Beiträge: 3358
Registriert: 07.06.2001

erstellt am: 21. Apr. 2017 14:45    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Danke, genau das war es.

------------------
<----- 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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz