Thema Datum  Von Nutzer Rating
Antwort
12.06.2016 11:55:03 Klaus
*****
Solved
12.06.2016 16:36:45 Gast20121
NotSolved
12.06.2016 17:18:30 Klaus
NotSolved
12.06.2016 17:47:23 Gast73715
*****
Solved
12.06.2016 18:36:24 Klaus
*****
Solved
12.06.2016 19:04:10 Gast25904
Solved
Rot Zeilen zählen und einfügen
12.06.2016 19:03:39 Gast35327
*****
Solved
12.06.2016 19:19:02 Klaus
*****
Solved
12.06.2016 19:59:19 Gast39604
*****
Solved
13.06.2016 18:20:51 Klaus
Solved

Ansicht des Beitrags:
Von:
Gast35327		 Datum:
12.06.2016 19:03:39		 Views:
885		 Rating:
     
Antwort:
 Nein
Thema:
Zeilen zählen und einfügen

Ok, dann für mehrere Spalten.

 

Dim lr As ListRow
Dim lo1 As ListObject
Dim lo2 As ListObject
Dim zMax1 As Long
Dim zMax2 As Long
Dim diff As Long
Dim i As Long
dim bereich
dim Parameter
  
Set lo1 = Worksheets("Ausarbeitung").ListObjects("Tab_Ausarbeitung")
Set lo2 = Worksheets("Kalkulation").ListObjects("Tab_Kalkulation")
zMax1 = lo1.ListRows.Count
'ab hier neu
'untersucht die Adresse von TabKalkulation und filtert Spalte bzw. Zeile raus.
bereich = Split(lo2.Range.Address, ":")
'die erste Zelle der Tabelle, Wert 2 ist die Zeilennummer
Parameter1 = Split(bereich(0), "$")
'die letze Zelle der tabelle, Wert 1 ist der Spaltenbuchstabe
Parameter2 = Split(bereich(1), "$")
'hier wird in Abhängigkeit neu gesetzt 
lo2.Resize Range(bereich(0) & ":" & Parameter2(1) & Parameter1(2) + zMax1)

 

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
12.06.2016 11:55:03 Klaus
*****
Solved
12.06.2016 16:36:45 Gast20121
NotSolved
12.06.2016 17:18:30 Klaus
NotSolved
12.06.2016 17:47:23 Gast73715
*****
Solved
12.06.2016 18:36:24 Klaus
*****
Solved
12.06.2016 19:04:10 Gast25904
Solved
Rot Zeilen zählen und einfügen
12.06.2016 19:03:39 Gast35327
*****
Solved
12.06.2016 19:19:02 Klaus
*****
Solved
12.06.2016 19:59:19 Gast39604
*****
Solved
13.06.2016 18:20:51 Klaus
Solved