Thema Datum  Von Nutzer Rating
Antwort
08.04.2019 16:57:15 Daniel
NotSolved
08.04.2019 17:10:33 Gast88488
NotSolved
08.04.2019 17:17:19 Daniel
NotSolved
08.04.2019 17:20:27 Gast87702
NotSolved
08.04.2019 17:22:13 Daniel
NotSolved
Blau Tabelle mit einem Makro bearbeiten
 08.04.2019 17:47:41 Gast14357
NotSolved
08.04.2019 17:55:59 Gast69921
NotSolved

Ansicht des Beitrags:
Von:
Gast14357		 Datum:
08.04.2019 17:47:41		 Views:
458		 Rating:
     
Antwort:
  Ja
Thema:
Tabelle mit einem Makro bearbeiten

Hi Daniel,

 

so:

Sub test()
Dim c As Range
Dim ce As Range
lz = Cells(Rows.Count, 1).End(xlUp).Row
For Each c In Range("A1:A" & lz).Cells
If IsNumeric(c) = False Then
ls = Cells(c.Row, Columns.Count).End(xlToLeft).Column
Range("A" & c.Row & ":" & "M" & c.Row).Cut Destination:=c.Offset(0, 1)
End If
Next c
End Sub

LG
Alexandra

 

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
08.04.2019 16:57:15 Daniel
NotSolved
08.04.2019 17:10:33 Gast88488
NotSolved
08.04.2019 17:17:19 Daniel
NotSolved
08.04.2019 17:20:27 Gast87702
NotSolved
08.04.2019 17:22:13 Daniel
NotSolved
Blau Tabelle mit einem Makro bearbeiten
 08.04.2019 17:47:41 Gast14357
NotSolved
08.04.2019 17:55:59 Gast69921
NotSolved