Thema Datum  Von Nutzer Rating
Antwort
Rot Werte aus Zeilen übertragen bis zur ersten leeren Zeile
25.09.2024 16:45:40 Frank
NotSolved
25.09.2024 19:12:57 ralf_b
*****
Solved
26.09.2024 08:03:49 Frank
NotSolved

Ansicht des Beitrags:
Von:
Frank
Datum:
25.09.2024 16:45:40
Views:
114
Rating: Antwort:
  Ja
Thema:
Werte aus Zeilen übertragen bis zur ersten leeren Zeile

Hallo,

ich habe in Blatt A eine Zelle (D1:F2), in welche Werte aus dem Blatt B Spalte C (genauer: Zellen C2:C101) eingetragen werden sollen.

Beginnend mit C2, dann werden zwei weitere Makros ausgeführt (quasi "Call Makro_1, Call Makro_2"), dann Zeile C3, wieder die beiden Makros, C4, usw. bis irgendwann mal eine leere Zeile ohne Werte angetroffen wird. Dann soll das Makro stoppen.

 

Meine VBA-Kenntnisse belaufen sich ziemlich auf 0.

Das meiste Google und kopiere ich mir zusammen, und probiere rum, bis es funktioniert. Wenn ich nicht weiter weiß, muss ich hier nachfragen. Und das ist wieder ein Punkt.

Bislang hatte ich den Code so, dass er nacheinander jede einzelne Zelle in der Spalte C auf Blatt 2 abgefragt hat. Bei 50 Zeilen also 50x den gleichen Code wiederholt, nur jedes Mal Column +1. Wurde da die Reihenfolge geändert, musste ich den Code mühsam anpassen. Nun ist die Darstellung in Spalte C Blatt 2 so, dass leere Zeilen ausgefiltert werden (habe ich mit einer klassischen Formel gelöst), was nun den Weg freimacht, den Code massiv zu vereinfachen und immer eine Zeile weiter runter zu gehen, bis kein Wert in der Zelle mehr ist.

 

 

Sieht bislang so aus:

    ActiveSheet.Unprotect
    Range("D1:F2").Select
    ActiveCell = "='Blatt B'!C2"  

    Call Makro_1
    Call Makro_2

    ActiveSheet.Protect
 

Aus dem Blatt B den Wert in Zelle C2 holt er sich also schon mal. Und wie bekomme ich nun die Schleife hin, dass er das bis Zelle C101 bzw. bis zur ersten Zeile mit leerem Inhalt durchrotiert?

 

Vielen, vielen Dank schon mal für eure Hilfe!
Und ich sollte wirklich mal einen VHS-VBA-Kurs machen! ;)


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
Rot Werte aus Zeilen übertragen bis zur ersten leeren Zeile
25.09.2024 16:45:40 Frank
NotSolved
25.09.2024 19:12:57 ralf_b
*****
Solved
26.09.2024 08:03:49 Frank
NotSolved