Autor
|
Thema: Zelleadressen von gefüllten zellen ausgeben (696 mal gelesen)
|
AndreasBo Mitglied TZ & Konstruktion
Beiträge: 861 Registriert: 16.11.2006 ******** Wenn am Anfang alles schief geht, nenne es Version 1.0!
|
erstellt am: 11. Sep. 2014 15:58 <-- editieren / zitieren --> Unities abgeben:
|
Beverly Mitglied Dipl.-Geologe (Rentner)
Beiträge: 394 Registriert: 11.08.2007
|
erstellt am: 11. Sep. 2014 17:14 <-- editieren / zitieren --> Unities abgeben: Nur für AndreasBo
Hi Andreas, so ganz klar geht aus deiner Beschreibung leider nicht, wie das Ergebnis aussehen soll - ich hätte deinen Beitrag so interpretiert: Code: Sub Auflisten() Dim rngZelle As Range Dim intSpalte As Integer For Each rngZelle In Range("A1:D4").SpecialCells(xlCellTypeConstants) With Worksheets("Tabelle2") intSpalte = IIf(IsEmpty(.Cells(rngZelle.Row, .Columns.Count)), _ .Cells(rngZelle.Row, .Columns.Count).End(xlToLeft).Column, .Columns.Count) + 1 .Cells(rngZelle.Row, intSpalte) = rngZelle.Address End With Next rngZelle Worksheets("Tabelle2").Columns(1).Delete End Sub
------------------ Bis später, Karin Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
AndreasBo Mitglied TZ & Konstruktion
Beiträge: 861 Registriert: 16.11.2006 ******** Wenn am Anfang alles schief geht, nenne es Version 1.0!
|
erstellt am: 12. Sep. 2014 08:19 <-- editieren / zitieren --> Unities abgeben:
|
Beverly Mitglied Dipl.-Geologe (Rentner)
Beiträge: 394 Registriert: 11.08.2007
|
erstellt am: 12. Sep. 2014 09:13 <-- editieren / zitieren --> Unities abgeben: Nur für AndreasBo
Hi Andeas, sicher geht das (wenn auch komplizierter), aber da musst du irgendwie vorgeben, wo die Daten dann ausgegeben werden sollen - z.B. die 2. Tabelle unterhalb der Egebnisse der 1. Tabelle.
------------------ Bis später, Karin Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
AndreasBo Mitglied TZ & Konstruktion
Beiträge: 861 Registriert: 16.11.2006 ******** Wenn am Anfang alles schief geht, nenne es Version 1.0!
|
erstellt am: 12. Sep. 2014 09:30 <-- editieren / zitieren --> Unities abgeben:
|