Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Automatisierung/ Verbesserung
25.01.2021 16:27:18 Maximilian
NotSolved
25.01.2021 16:42:19 ralf_b
NotSolved
26.01.2021 03:37:42 Gast24588
NotSolved
26.01.2021 03:58:16 Gast16065
NotSolved

Ansicht des Beitrags:
Von:
Maximilian 		Datum:
25.01.2021 16:27:18		 Views:
756		 Rating:
     
Antwort:
  Ja
Thema:
VBA Automatisierung/ Verbesserung

Guten Tag,


ich würde gerne einen bestehenden Code ausbauen. Der bisherige kopiert den Wert aus Spalte A1 in die Spalte 20 und fügt darüber eine neue Spalte ein. 


Nun würde ich gerne einen Wert aus Spalte B1 entsprechend in B20 einfügen. Idealerweise soll in C20 das aktuelle Datum abgelegt werden (in Kalenderwochen oder auch in XX.XX.XXXX Form. Sodass man am Ende eine Tabelle hat mit den Werten zu unterschiedlichen Tagen um einen Verlauf zu erkennen. 


Kann man das Makro auch immer Montags automatisch ablaufen lassen? Und gibt es eine Funktion die alle Tabellenblätter (100 an der Zahl) anspricht - außer das erste ? 


Ich danke euch!


Nun Der Code: 

Sub KopiereBereich()
Dim Tabelle1 As Worksheet
Dim Zelle As Range
Dim Zaehler As Long
Zaehler = 20
Bereich = "A1"
Set Tabelle1 = ActiveWorkbook.Worksheets("Tabelle1")
For Each Zelle In Tabelle1.Range("A1")
Tabelle1.Cells(Zaehler, 1) = Zelle
Zaehler = Zaehler + 1
  Rows("20").Select
     Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
 
Next Zelle
End Sub

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 VBA Automatisierung/ Verbesserung
25.01.2021 16:27:18 Maximilian
NotSolved
25.01.2021 16:42:19 ralf_b
NotSolved
26.01.2021 03:37:42 Gast24588
NotSolved
26.01.2021 03:58:16 Gast16065
NotSolved