Thema Datum  Von Nutzer Rating
Antwort
25.11.2015 15:09:58 Peter
NotSolved
25.11.2015 16:43:53 Gast12413
NotSolved
Rot Werte verschiedener Excelspalten zusammenführen und weiter bearbeiten.
 25.11.2015 17:54:03 Gast50168
NotSolved
25.11.2015 18:55:55 Peter
NotSolved
25.11.2015 19:15:22 Gast99998
NotSolved

Ansicht des Beitrags:
Von:
Gast50168		 Datum:
25.11.2015 17:54:03		 Views:
1066		 Rating:
     
Antwort:
  Ja
Thema:
Werte verschiedener Excelspalten zusammenführen und weiter bearbeiten.

Also der Code liest aus den ersten 3 Spalten im ersten Tabellenblatt alle Einträge aus. Diese werden im Array werteliste gespeichert. Für ein weitere Bearbeitung steht dabei beim Index 0 die Anzahl der Einträge. Ab Index 1 stehen dann die Werte. Bei Bedarf kann man die Spaltenanzahl erweitern.

 

Sub werteauslesen()
Dim werteliste()    ' Liste der ganzen Werte
Dim spalte As Integer
Dim zeile As Integer
Dim i As Integer    ' für Schleife zum Zählen

ReDim Preserve werteliste(0)    'für den ersten Wert vorbereiten
werteliste(0) = 0

For spalte = 1 To 3     'alle Spalten durchgehen
    If Worksheets(1).Cells(Rows.Count, spalte).End(xlUp).Row > 1 Then  'prüft ob nach der Überschrift noch was kommt
        For zeile = 2 To Worksheets(1).Cells(Rows.Count, spalte).End(xlUp).Row 'bis zur letzten Zeile mit Eintrag gehen
            If Worksheets(1).Cells(zeile, spalte).Value <> "" Then  'Eintrag ist vorhanden
                ReDim Preserve werteliste(werteliste(0) + 1)  'Arraylänge um 1 erwitern
                werteliste(0) = werteliste(0) + 1   'den interen Zähler eins hochsetzen
                werteliste(werteliste(0)) = Worksheets(1).Cells(zeile, spalte).Value  'WErt eintragen
            End If
        Next zeile
    End If
Next spalte

End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
25.11.2015 15:09:58 Peter
NotSolved
25.11.2015 16:43:53 Gast12413
NotSolved
Rot Werte verschiedener Excelspalten zusammenführen und weiter bearbeiten.
 25.11.2015 17:54:03 Gast50168
NotSolved
25.11.2015 18:55:55 Peter
NotSolved
25.11.2015 19:15:22 Gast99998
NotSolved