Thema Datum  Von Nutzer Rating
Antwort
Rot Daten aus vielen Worksheets in neues Worksheet zusammenfassen
 16.04.2021 10:22:38 Max
NotSolved
16.04.2021 20:05:53 ralf_b
NotSolved

Ansicht des Beitrags:
Von:
Max		 Datum:
16.04.2021 10:22:38		 Views:
1115		 Rating:
     
Antwort:
  Ja
Thema:
Daten aus vielen Worksheets in neues Worksheet zusammenfassen

Hallo zusammen,

Ich bin ein VBA-Neuling und habe folgendes Problem:

In meiner Excel Datei (die leider jemand anderes erstellt hat) werden aus verschiedenen Worksheets die vorhandenen Daten in ein "Summary" Worksheet zusammengefasst. Dabei werden die Werte aus den unterschiedlichen Worksheets teilweise in die gleiche Zeile gespeichert, wenn sie das gleiche Attribut "Position" haben.

Nun ist folgendes Problem aufgetreten, dass in einem Worksheet (Worksheet2) mehrere Werte zur gleichen Position gehören. Das Makro kopiert aber nur den ersten Wert und verliert die anderen. Es müsste denke ich eine neue Zeile unter die zuletzt beschriebene Zeile eingefügt werden mit der gleichen Position.

Ich hoffe das war einigermaßen verständlich.

Der Code ist aktuell folgender:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Private Sub Populate_TestReduction_Click()
 
Dim Orig_Zeile As Integer
Dim Orig_Spalte As Integer
 
Dim aktuelle_Spalte As Integer
Dim aktuelle_Zeile As Integer
Dim end_Zeile As Integer
Dim count As Integer
 
'Kopieren des Worksheets 1:
 
Application.ScreenUpdating = False
 
    Orig_Zeile = 13
    Orig_Spalte = 5
     
    aktuelle_Zeile = 11
 
    Do While Worksheets("Sheet1").Cells(Orig_Zeile, Orig_Spalte).Value <> ""
     
        Worksheets("Summary").Cells(aktuelle_Zeile, 157).Value = Worksheets("Sheet1").Cells(Orig_Zeile, Orig_Spalte).Value
         
            Orig_Zeile = Orig_Zeile + 1
            aktuelle_Zeile = aktuelle_Zeile + 1
    Loop
 
 
'Kopieren des Worksheets 2:
 
    Orig_Zeile = 13
    Orig_Spalte = 5
     
 
    Do While Worksheets("Sheet2").Cells(Orig_Zeile, Orig_Spalte).Value <> ""
     
        Worksheets("Summary").Cells(aktuelle_Zeile, 157).Value = Worksheets("Sheet2").Cells(Orig_Zeile, Orig_Spalte).Value
         
            Orig_Zeile = Orig_Zeile + 1
            aktuelle_Zeile = aktuelle_Zeile + 1
             
    Loop
    Application.ScreenUpdating = True
 
End Sub

 

Kann mir dabei jemand helfen, oder geht das vielleicht einfacher zu coden?

Vielen Dank im voraus!!!

 

Grüße,

Max

 

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
Rot Daten aus vielen Worksheets in neues Worksheet zusammenfassen
 16.04.2021 10:22:38 Max
NotSolved
16.04.2021 20:05:53 ralf_b
NotSolved