Zellen nacheinander anspringen (horizontal), die einen Kommentar enthalten

16/03/2015 - 18:06 von computrain.volkert | Report spam
Hallo liebe Newsgroupies,

für den Import und die Aufbereitung einer Tabelle (csv-Datei)habe ich folgende Anforderung bzw. Spezifikation:

In einem Worksheet befinden sich Spaltenüberschriften. Bei einigen dieser Spaltenüberschriften sind die Feldbezeichner der zu importierenden csv-Datei als Kommentar hinterlegt. Beim Import soll nun die erste Zeile der Ergebnis-Tabelle von links nach rechts durchlaufen werden, - sofern vorhanden - der im Kommentar hinterlegte Feldbezeichner ausgelesen und die Daten der csv-Datei in die Spalte unter der neuen Überschrift eingefügt werden.

Mein Problem ist nun, wie ich per VBA nur die Zellen anspringen und auslesen kann, die auch tatsàchlich einen Kommentar enthalten:

Also z.B. so:
Zelle A1, B1, C1 und D1 enthalten Texte aber nur A1, B1 und D1 enthalten Kommentare. Durchlaufe nur die 3 Zellen, lies deren Kommentare aus, vergleiche ihn mit den Überschriften in einem Range einer anderen Tabelle. Bei Übereinstimmung kopiere den Inhalt der Spalte aus der Quell-Tabelle in die Ergebnistabelle.

Für eine Hilfe oder einen Programmcode wàre ich Euch sehr dankbar.

Viele Grüße aus München

Andreas Volkert
 

Lesen sie die antworten

#1 Claus Busch
16/03/2015 - 18:30 | Warnen spam
Hallo Andreas,

Am Mon, 16 Mar 2015 10:06:32 -0700 (PDT) schrieb
:

Also z.B. so:
Zelle A1, B1, C1 und D1 enthalten Texte aber nur A1, B1 und D1 enthalten Kommentare. Durchlaufe nur die 3 Zellen, lies deren Kommentare aus, vergleiche ihn mit den Überschriften in einem Range einer anderen Tabelle. Bei Übereinstimmung kopiere den Inhalt der Spalte aus der Quell-Tabelle in die Ergebnistabelle.



probiere es mal so:

Dim rngC As Range

For Each rngC In Range("A1:E1").SpecialCells(xlCellTypeComments)


Mit freundlichen Grüßen
Claus
Vista Ultimate / Windows7
Office 2007 Ultimate / 2010 Professional

Ähnliche fragen