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:
975		 Rating:
     
Antwort:
 Nein
Thema:
Zeilen zählen und einfügen

Ok, dann für mehrere Spalten.

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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