Thema Datum  Von Nutzer Rating
Antwort
Rot Problem mit Arbeitsblättern
 29.06.2015 09:56:52 Maxi Mustermann
NotSolved
29.06.2015 10:35:24 Gast24559
NotSolved

Ansicht des Beitrags:
Von:
Maxi Mustermann		 Datum:
29.06.2015 09:56:52		 Views:
1609		 Rating:
     
Antwort:
  Ja
Thema:
Problem mit Arbeitsblättern
?
1
2
3
4
5
6
7
8
Hallo Leute,
 
ich muss zur Zeit ein kleines Programm mit vba anfertigen und habe eine Frage ...
Die Idee ist, dass das Programm im "Blatt2" bestimmte Zellen färbt, ihnen einen Inhalt gibt und sie dann verbindet.
Im großen und ganzen macht es das auch nur mit dem kleinen Schönheitsfehler, dass er es nicht packt das blatt zu wechseln.
Soll heißen, wenn ich das<span style="font-family: Arial, Verdana, sans-serif;">ThisWorkbook.Sheets("Blatt2")</span><span style="font-family: Arial, Verdana, sans-serif;"> weglasse, macht er was ich will aber im falschen Blatt. Mit </span><span style="font-family: Arial, Verdana, sans-serif;">ThisWorkbook.Sheets("Blatt2")</span><span style="font-family: Arial, Verdana, sans-serif;"> gibts nur
eine Fehlermeldung.
</span><span style="font-family: Arial, Verdana, sans-serif;">Wieso?</span>
?
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
Hier der Sorgenteil für den Kontext:
 
If maschine.Cells(y, x).Interior.ColorIndex = xlNone Then
                 
                Application.DisplayAlerts = False
                     
                    ThisWorkbook.Sheets("Blatt2").Range(Cells(y, x), Cells(y, x + 1)).Select
                    With Selection
                        .Value = eingabemaske.Range("C4").Value
                        .HorizontalAlignment = xlCenter
                        .VerticalAlignment = xlCenter
                        .Interior.ColorIndex = Farbe
                        .WrapText = False
                        .Orientation = 0
                        .AddIndent = False
                        .ShrinkToFit = False
                        .MergeCells = False
                    End With
                     
                    Selection.Merge
                     
                Application.DisplayAlerts = True
                 
                anzahl = anzahl + 1
             
            Else
                MsgBox ("Nicht genügend frei Schichten ab gewähltem Startdatum")
                Exit Sub
            End If

 

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 Problem mit Arbeitsblättern
 29.06.2015 09:56:52 Maxi Mustermann
NotSolved
29.06.2015 10:35:24 Gast24559
NotSolved