Thema Datum  Von Nutzer Rating
Antwort
Rot Ich habe einen Fehler in meinen Makro
 09.02.2015 12:49:43 SaSc
NotSolved
09.02.2015 18:53:25 Gast89448
NotSolved
11.02.2015 08:35:17 Gast36302
NotSolved
12.02.2015 18:45:29 Gast1861
NotSolved

Ansicht des Beitrags:
Von:
SaSc		 Datum:
09.02.2015 12:49:43		 Views:
1405		 Rating:
     
Antwort:
  Ja
Thema:
Ich habe einen Fehler in meinen Makro

Hallo zusammen,

könnt ihr mir helfen? Wenn mein Wert =0 ist, soll an einer anderen Stelle im Makro weiter gemacht werden. Wie kann ich das in meinen Code einbauen. Unten könnt ihr sehen, was ich meine. Es handelt sich nur um einen kleinen Ausschnitt aus meinen Code.

 

?
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
46
47
48
49
50
51
52
53
54
55
56
57
Private Sub CommandButton21_Click()
' Messwerte übertragen
Dim wkbZiel As Workbook
Dim shZiel As Worksheet, shQuelle As Worksheet
Dim lngSpalte As Long
'pw baue ich ggf. später noch ein
Dim pw As String
 
    
    Application.ScreenUpdating = False
   Range("D1") = "Daten wurden übertragen"
        
    Set shQuelle = ActiveSheet
           
           
            ' Übertragung Dicke Dichte FG MK wenn BA17=1
           
    If shQuelle.Range("BA17").Value = 1 Then <em><strong>' wenn shQuelle.Range("BA17").Value=0, dann mach mit "Übertragung Dicke Dichte FG MP weiter</strong></em>
 
            Set wkbZiel = GetObject("H:\.....\In Arbeit_Messergebnis-Datenbank.xls")
          
              Set shZiel = wkbZiel.Sheets("Dicke,Dichte, Flächengewicht")
        With shZiel
            .Rows(4).Insert CopyOrigin:=xlFormatFromRightOrBelow
             
            'Kopfdaten
             
            .Range("K4") = shQuelle.Range("F11").Value
            .Range("L4") = shQuelle.Range("F8").Value
           
             
            'Position MK
            .Range("Y4") = shQuelle.Range("F15").Value
                         
 
               ' Übertragung Dicke Dichte FG MP wenn BB17=1
                
                If shQuelle.Range("BB17").Value = 1 Then
                 
            Set shZiel = wkbZiel.Sheets("Dicke,Dichte, Flächengewicht")
        With shZiel
            .Rows(4).Insert CopyOrigin:=xlFormatFromRightOrBelow
             
            'Kopfdaten
            .Range("K4") = shQuelle.Range("F11").Value
            .Range("L4") = shQuelle.Range("F8").Value
             
             
            'Position MP
            .Range("Y4") = shQuelle.Range("L15").Value
             
                
 
Vielen DanK!
 
    Liebe Grüße
SaSc

 

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 Ich habe einen Fehler in meinen Makro
 09.02.2015 12:49:43 SaSc
NotSolved
09.02.2015 18:53:25 Gast89448
NotSolved
11.02.2015 08:35:17 Gast36302
NotSolved
12.02.2015 18:45:29 Gast1861
NotSolved