Thema Datum  Von Nutzer Rating
Antwort
19.12.2017 19:40:21 Siva
NotSolved
19.12.2017 22:41:47 Gast58661
NotSolved
20.12.2017 07:20:55 Gast6057
NotSolved
20.12.2017 08:10:37 Gast13246
NotSolved
20.12.2017 08:16:24 Gast90064
NotSolved
20.12.2017 08:23:36 Gast41904
NotSolved
20.12.2017 11:32:43 Gast10733
NotSolved
20.12.2017 11:44:36 Gast12661
NotSolved
20.12.2017 13:59:08 Gast61428
NotSolved
20.12.2017 14:00:37 Siva
NotSolved
20.12.2017 14:02:34 Siva
NotSolved
20.12.2017 16:30:11 Gast6057
NotSolved
20.12.2017 20:17:41 Gast56108
NotSolved
Blau Warum einfach, wenns auch schwierig geht?
 21.12.2017 07:39:21 RPP63
Solved
21.12.2017 10:27:08 Gast49647
NotSolved
21.12.2017 09:53:30 Gast6057
NotSolved
21.12.2017 09:59:23 RPP63
NotSolved
20.12.2017 21:22:00 SF
NotSolved

Ansicht des Beitrags:
Von:
RPP63		 Datum:
21.12.2017 07:39:21		 Views:
475		 Rating:
     
Antwort:
 Nein
Thema:
Warum einfach, wenns auch schwierig geht?

Dein Beispiel stiimt nicht, aber egal:

Sub RPP()
Dim a As Range
With Tabelle1
  With Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp)).SpecialCells(xlCellTypeBlanks)
    .FormulaR1C1 = "=R[-1]C1+1"
    For Each a In .Areas
      a.Copy: a.PasteSpecial xlPasteValues
    Next
  End With
End With
Application.CutCopyMode = False
End Sub

Gruß Ralf

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
19.12.2017 19:40:21 Siva
NotSolved
19.12.2017 22:41:47 Gast58661
NotSolved
20.12.2017 07:20:55 Gast6057
NotSolved
20.12.2017 08:10:37 Gast13246
NotSolved
20.12.2017 08:16:24 Gast90064
NotSolved
20.12.2017 08:23:36 Gast41904
NotSolved
20.12.2017 11:32:43 Gast10733
NotSolved
20.12.2017 11:44:36 Gast12661
NotSolved
20.12.2017 13:59:08 Gast61428
NotSolved
20.12.2017 14:00:37 Siva
NotSolved
20.12.2017 14:02:34 Siva
NotSolved
20.12.2017 16:30:11 Gast6057
NotSolved
20.12.2017 20:17:41 Gast56108
NotSolved
Blau Warum einfach, wenns auch schwierig geht?
 21.12.2017 07:39:21 RPP63
Solved
21.12.2017 10:27:08 Gast49647
NotSolved
21.12.2017 09:53:30 Gast6057
NotSolved
21.12.2017 09:59:23 RPP63
NotSolved
20.12.2017 21:22:00 SF
NotSolved