Dynamisches Sortieren Berechnen mehrere Tabellen

Hallo Zusammen
Habe drei Probleme zu beigefügtem File: https://www.herber.de/bbs/user/125462.xlsm
------------
Im VBA Code bringe ich es nicht zustande einen Range so zu erstellen,
dass dieser dynamisch ist d.h. mit "Cells". Dieser Range soll zur Sortierung
dienen. Könnte gut sein, dass ich diesen später auch für andere Zwecke
verwenden würde.
------------
Der Code sollte über diverse Tabellen gleichzeitig anwendbar sein.
Aktuell habe ich zwei Tabellen es werden aber einige mehr werden. Das
gute daran ist, dass diese vom Layout her identisch sind.
-----------
Im Makro "Berechnen" kopiere ich Formeln in die Zellen. Eigentlich
möchte ich nur das Ergebnis aus der Formel da reinschreiben. D.h. die
Berechnung sollte als Code im Programm hinterlegt sein.
Ich weiss ich habe viele Wünsche und Vorstellungen. Vielleicht hat jemand
von euch Verständnis dafür und hilft mir weiter. Würde mich sehr darüber freuen.
Liebe Gruess
Richi

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Richi,
Modul Modul1

 
Sub Sortieren_Tabelle() 
  Dim lngLast As Long 
   
'Parameter 
  Const FIRST_COLUMN As Long = 1 
  Const LAST_COLUMN As Long = 7 
  Const FIRST_ROW As Long = 16 
  Const FIRST_SORT As Long = 2 
  Const SECOND_SORT As Long = 3 
  Const THIRD_SORT As Long = 1 
   
'Sortieren 
  With ActiveSheet 
    lngLast = Application.Max(FIRST_ROW, .Cells(.Rows.Count, FIRST_COLUMN).End(xlUp).Row) 
    .Range(.Cells(FIRST_ROW, FIRST_COLUMN), .Cells(lngLast, LAST_COLUMN)).Sort _
      Key1:=.Cells(FIRST_ROW, FIRST_SORT), Order1:=xlAscending, _
      Key2:=.Cells(FIRST_ROW, SECOND_SORT), Order1:=xlAscending, _
      Key3:=.Cells(FIRST_ROW, THIRD_SORT), Order1:=xlAscending, _
      Header:=xlYes, MatchCase:=True 
  End With 
End Sub 
 
Sub Rechnen() 
  Dim lngLast As Long 
   
'Parameter 
  Const FIRST_COLUMN As Long = 1 
  Const LAST_COLUMN As Long = 7 
  Const FIRST_ROW As Long = 16 
   
'Sortieren 
  With ActiveSheet 
    lngLast = Application.Max(FIRST_ROW, .Cells(.Rows.Count, FIRST_COLUMN).End(xlUp).Row) 
       
      .Cells(FIRST_ROW, LAST_COLUMN - 1) = "Untere Toleranz" 
      .Cells(FIRST_ROW, LAST_COLUMN) = "Obere Toleranz" 
      With .Range(.Cells(FIRST_ROW + 1, LAST_COLUMN - 1), .Cells(lngLast, LAST_COLUMN - 1)) 
        .FormulaR1C1 = "=TRIM(LEFT(RC[-1],FIND(""/"",RC[-1])-1))*1" 
        '.Value = .Value 
      End With 
      With .Range(.Cells(FIRST_ROW + 1, LAST_COLUMN), .Cells(lngLast, LAST_COLUMN)) 
        .FormulaR1C1 = "=TRIM(MID(RC[-2],FIND(""/"",RC[-2])+1,99))*1" 
        '.Value = .Value 
      End With 
  End With 
End Sub 

VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

	A	B	C	D	E	F
1	Gruß Sepp
2
3

Beliebteste Forumthreads (12 Monate)

Dynamisches Sortieren Berechnen mehrere Tabellen

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

224 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Dynamisches Sortieren Berechnen mehrere Tabellen

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

224 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread