Thema Datum  Von Nutzer Rating
Antwort
Rot Zellen nach einander vershieben, wenn Bedingung gefunden
 07.12.2020 12:11:40 JRoss
NotSolved

Ansicht des Beitrags:
Von:
JRoss		 Datum:
07.12.2020 12:11:40		 Views:
734		 Rating:
     
Antwort:
  Ja
Thema:
Zellen nach einander vershieben, wenn Bedingung gefunden

Hallo,

Zur Erklärung: In meiner Tabelle geht es darum Arbeitsschritte in einem Kalender darzustellen. Jeder Schritt besteht aus einer Zahlenfolge, z.B. von 1 bis 4, bei dem jede Zahl unterschiedliche lange Tage in anspruch nimmt, eine Dauer wird angezeigt. Ich versuche jetzt ein Makro zu schreiben, welches mir die Zellen, die mit Zahlen gefüllt sind, nach rechts verschiebt sobald ein Feiertag im Kaledner steht. Zur Hilfe habe ich in den Zellen H1:AW1 mit einer Zählenwenn Funktion, bezogen auf die Feiertage in Tabelle2, den Wahrheitswert ausgeben lassen. Mit dem Code komm ich nicht weiter und weiß auch nicht ob ich auf dem richtigen Weg bin. Ich wäre für jegliche Hilfe Dankbar. Hier der Link zu einem Bild der Oberfläche:https://ibb.co/HhTKxS8 . Vielen Dank.

Hier der Code:

Sub verschieben()
Dim letztespalte As Long
Dim y As Long
Dim x As Long
Dim C As Range


For y = 7 To 7
For x = 8 To 50
Z = letztespalte + 1
letztespalte = Worksheets("Tabelle1").Cells(y, 8).End(xlToLeft).Column
 For Each C In Range("H1:AW1")
   If C = True Then
   Worksheets("Tabelle1").Cells(y, letztespalte).Copy
   Worksheets("Tabelle1").Cells(y, Z).PasteSpecial Paste:=xlPasteValues
   Application.CutCopyMode = False

   End If
Next C
Next x
Next y

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 Zellen nach einander vershieben, wenn Bedingung gefunden
 07.12.2020 12:11:40 JRoss
NotSolved