Thema Datum  Von Nutzer Rating
Antwort
01.01.2021 21:43:37 Josi
NotSolved
01.01.2021 21:45:39 Gast89724
NotSolved
01.01.2021 21:48:30 Mackie
NotSolved
01.01.2021 21:57:44 Josi
NotSolved
01.01.2021 23:21:32 Mackie
*****
Solved
02.01.2021 11:26:10 Josi
NotSolved
Rot Wie kann ich Zeilen durchzählen
 01.01.2021 23:38:01 volti
*****
Solved
02.01.2021 11:27:31 Gast85091
NotSolved

Ansicht des Beitrags:
Von:
volti		 Datum:
01.01.2021 23:38:01		 Views:
662		 Rating:
     
Antwort:
 Nein
Thema:
Wie kann ich Zeilen durchzählen

Hallo Josi,

Du hast vergessen, den Cell bzw. Row-Term einzusetzen. ActiveSheet hat keine Parameter. Siehe Sub Test1.

Ich nehme an, Du möchtest das Schleifenprogrammieren üben, denn sonst könntest Du ja auch alles in einem Rutsch kopieren. Sub Test2

Falls Du nur Werte übernehmen wolltest, kannst Du diese auch direkt übernehmen, ohne Kopieren. Das geht bei größeren Mengen deutlich schneller.

Code:
 
01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33		  
Sub Test()
  Dim last As Integer

  last = Worksheets(2).Cells(Rows.Count, 1).End(xlUp).Row + 1
 
'Falls der Button angewählt ist, sollen mehrere Zeilen aus dem einen Tabellenblatt ins andere kopiert werden
 
  If OptionButton_SS3 = True Then
    For m = 2 To 8
        ActiveSheet.Rows(m & ":" & m).Copy Destination:=Worksheets(2).Cells(last, 1)
        last = last + 1
    Next m
  End If
End Sub

Sub Test2()
  Dim last As Integer
  
  last = Worksheets(2).Cells(Rows.Count, 1).End(xlUp).Row + 1
  If OptionButton_SS3 = True Then
        ActiveSheet.Rows("2:8").Copy Destination:=Worksheets(2).Cells(last, 1)
  End If
End Sub

Sub Test3()
'nur Werte
  Dim last As Integer
  
  last = Worksheets(2).Cells(Rows.Count, 1).End(xlUp).Row + 1
  If OptionButton_SS3 = True Then
     Worksheets(2).Cells(last, 1).Resize(7, 1).EntireRow.Value = ActiveSheet.Rows("2:8").Value
  End If
End Sub
 
_________
viele Grüße
Karl-Heinz

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
01.01.2021 21:43:37 Josi
NotSolved
01.01.2021 21:45:39 Gast89724
NotSolved
01.01.2021 21:48:30 Mackie
NotSolved
01.01.2021 21:57:44 Josi
NotSolved
01.01.2021 23:21:32 Mackie
*****
Solved
02.01.2021 11:26:10 Josi
NotSolved
Rot Wie kann ich Zeilen durchzählen
 01.01.2021 23:38:01 volti
*****
Solved
02.01.2021 11:27:31 Gast85091
NotSolved