Thema Datum  Von Nutzer Rating
Antwort
22.12.2017 16:10:31 grafplus
NotSolved
22.12.2017 17:13:06 Mackie
NotSolved
22.12.2017 18:09:48 Gast5065
NotSolved
Blau Variable füllen, hochzähle und auslesen
 23.12.2017 08:54:32 Gast72742
NotSolved

Ansicht des Beitrags:
Von:
Gast72742		 Datum:
23.12.2017 08:54:32		 Views:
591		 Rating:
     
Antwort:
  Ja
Thema:
Variable füllen, hochzähle und auslesen		 
Sub Kopiere()
Dim c As Range

   'Tabelle2 - hat Überschrift! - sonst anpassen!
   'Tabelle1 - Zelle in Zeile wo .....
   OhneLeer ActiveCell
   'oder alle
   'Tabelle1 - hat Überschrift!
   For Each c In ActiveSheet.UsedRange.Columns(1).Offset(1).Cells
      OhneLeer c
   Next c

End Sub

Private Sub OhneLeer(aCell As Range)
Dim rngRw As Range

On Error GoTo errh
   Set rngRw = aCell.EntireRow.SpecialCells(xlCellTypeConstants)
   rngRw.Copy Sheets("Tabelle2").Cells.Find("*", Cells(1), -4123, 2, 1, 2, False).EntireRow.Offset(1).Cells(1)
On Error GoTo 0
errh:
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
22.12.2017 16:10:31 grafplus
NotSolved
22.12.2017 17:13:06 Mackie
NotSolved
22.12.2017 18:09:48 Gast5065
NotSolved
Blau Variable füllen, hochzähle und auslesen
 23.12.2017 08:54:32 Gast72742
NotSolved