Thema Datum  Von Nutzer Rating
Antwort
26.05.2019 16:38:33 yklein
NotSolved
Blau Makro um Messwerte von unterschiedlichen Messungen nebeneinander darzustellen
 26.05.2019 20:04:26 Gast97445
*****
Solved
26.05.2019 20:31:21 Gast3458
Solved

Ansicht des Beitrags:
Von:
Gast97445		 Datum:
26.05.2019 20:04:26		 Views:
437		 Rating:
     
Antwort:
 Nein
Thema:
Makro um Messwerte von unterschiedlichen Messungen nebeneinander darzustellen

Auch wenn mir das "große Kino" über mehr Foren und Beiträge missfällt

Sub distri()
Dim rng As Range, trg As Range, x As Long, y As Long
Const C_DIST As Long = 4

   With ActiveSheet.UsedRange.Columns(1).Resize(, 2)
      .AutoFilter
      'exemplary
      '.AutoFilter Field:=1, Criteria1:=">0", Operator:=xlAnd
      .AutoFilter Field:=1, Criteria1:=">-1000", Operator:=xlAnd
      Set rng = .SpecialCells(12)
      .AutoFilter
   End With
   y = C_DIST
   For x = 2 To rng.Areas.Count
      Set trg = rng.Areas(1).Cells(1).Offset(, y)
      rng.Areas(x).Offset(-1).Resize(rng.Areas(x).Rows.Count + 1).Copy trg
      y = y + C_DIST
   Next x
   'optional
   rng.Areas(2).Offset(-1).Resize(ActiveSheet.UsedRange.Rows.Count).Clear
   
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
26.05.2019 16:38:33 yklein
NotSolved
Blau Makro um Messwerte von unterschiedlichen Messungen nebeneinander darzustellen
 26.05.2019 20:04:26 Gast97445
*****
Solved
26.05.2019 20:31:21 Gast3458
Solved