Projektanfrage

Projektanfrage über Web Formular   per Online-Formular 
Projektanfrage über E-Mail  Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein!
Projektanfrage per Telefon  +49 (0)151 / 164 55 914
Projektanfrage weitere Informationen  weitere Informationen 

Sie benötigen Hilfe oder Unter-stützung? Nutzen Sie für Ihre Anfrage unser Online-Formular, senden Sie uns eine Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein! oder rufen Sie uns einfach an.

   
      Referenzen 

 Bosch 
  T-Systems
  Hagebau
  Siemens
 Areva  VW
 Haufe-Lexware  British American Tobacco
  nagel group farbe
   
     Programmierung
Excel Auftragsprogrammierung Access Auftragsprogrammierung
Word Auftragsprogrammierung Outlook Auftragsprogrammierung
   
   

Projektanfrage

 Sie benötigen eine Auftragsprogrammierung?
 Oder suchen Unterstützung bei der Lösungs-
 findung?

  Nutzen Sie unser Anfrageformular

  Jetzt anrufen unter 0151 / 164 55 914

 Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein! Projektanfrage per Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein! senden

  Weitere Informationen

sitepanel question2

P
r
o
j
e
k
t
a
n
f
r
a
g
e
   

Array-Bereich direkt in Zell-Bereich schreiben

Sie kennen sicherlich den gewohnten Umgang (schreiben und lesen) mit Array-Variablen. Normalerweise wird jeder Eintrag der Array-Variable einzeln referenziert.


Sub Normales_Array()
'** Dimensionierung der Variablen
Dim  strArray(5, 3) '5 Zeilen, 3 Spalten
'** Elemente in Array schreiben
For  a = 1 To 5
  For b = 1 To 3
    '** Element in Array schreiben
    strArray(a, b) = Cells(a, b).Address
  Next b
Next  a
'** Auslesen der Array-Variable
'** Beispiel: Element 3,2 auslesen = Zeile 3, Spalte 2 also Adresse B3
MsgBox strArray(3, 2)
End  Sub



Das folgende Beispiel zeigt, wie sich ein ganzer Zellbereich in einer Array-Variable ablegen und auslesen lässt, ohne dass jedes einzelne Array-Element einzeln zum Auslesen referenziert werden muss. Damit können Array-Inhalte sehr schnell ohne For-Next-Schleifen in einem Zellbereich ausgegeben werden.


Wichtig ist, dass der eingelesene Zellbereich absolut mit dem Ausgabebereich identisch ist, d.h. beide Bereiche müssen die gleiche Größe (Anzahl Zeilen und Spalten) haben.



Sub Gesamtes_Array_schreiben()
'***************************************************************************************

' Module : Modul1

' Author : Alois Eckl

' Date : 11.01.2010

' Purpose : Array-Bereich direkt in Zell-Bereich schreiben

'***************************************************************************************


'** Dimensionierung der Variablen

Dim
 arrTotal, strAdr As String
Dim
 lngZeile As Long
Dim
 lngSpalte As Long

'** Bereich löschen

Range("B5:H30").ClearContents

'** Array definieren

arrTotal = Range("B5:H30")
   
For
 lngZeile = 1 To 26 '** Zeilen 5 bis 30
  
  For lngSpalte = 1 To 7 '** Spalten B bis H
    '** Zelladresse auslsen
    strAdr = Cells(lngZeile + 4, lngSpalte + 1).Address
    
    '** Array aktualisieren
    arrTotal(lngZeile, lngSpalte) = strAdr
  
  Next lngSpalte

Next
 lngZeile

'** Gesamten Array-Bereich schreiben

Range("B5:H30") = arrTotal
   
End
 Sub      


   

Relevante Artikel

  • Doppelte Datensätze finden und farbig markieren (in unsortierer Liste)

    101053   Das folgende Makro sucht alle doppelten Einträge in einer Liste und markiert diese mit einer Farbe. Die Liste muss dabei nicht sortiert sein, damit funktioniert die Prozedur in jeder...

  • Hyperlinks per VBA auslesen

    101083 Mit diesem Makro können alle Hyperlinks eines definierten Zellbereichs ausgelesen werden. Das Makro durchforstet in diesem Beispiel die Spalte A und listet die Ergebnisse, also alle...

  • Farbschleife - Zellen abwechselnd einfärben

    Dieses Beispiel zeigt, wie ausgehend von der aktuell markierten Zelle, weitere 33 Zellen, also insgesamt 34 Zellen mit einem farbigen Zellhintergrund belegt werden. Dabei sollen die ersten drei...

  • Unikate in eigene Spalte extrahieren

    101072 Mit diesem Makro werden alle nicht doppelten Daten aus Spalte A in Spalte B geschrieben.Jeder Wert wird also maximal einmal in Spalte B geschrieben, egal, wie oft er in Spalte A vorhanden...

  • Zeilen abhängig von einer bestimmten Bedingung löschen

    Bedingte Zeilenlöschung Mit diesem Makro können sie Zeilen abhängig von einer Bedingung löschen. Die Bedingung in diesem Beispiel ist der Buchstabe "x" in der ersten Spalte. Das bedeutet, wenn eine...

   
Cookies erleichtern die Bereitstellung unserer Dienste. Mit der Bestätigung erklären Sie sich mit der Verwendung von Cookies auf Excel-Inside Solutions einverstanden.
Weitere Informationen Ok