Thema Datum  Von Nutzer Rating
Antwort
10.12.2022 12:11:12 Marc.L
NotSolved
10.12.2022 13:15:02 Flotter Feger
NotSolved
Rot Msgbox in For Schleife
 11.12.2022 17:37:15 Marc.L
NotSolved
11.12.2022 17:51:59 Marc.L
NotSolved
11.12.2022 18:26:46 Flotter Feger
NotSolved
11.12.2022 19:51:12 Marc.L
NotSolved
11.12.2022 20:19:31 Gast61337
NotSolved

Ansicht des Beitrags:
Von:
Marc.L		 Datum:
11.12.2022 17:37:15		 Views:
318		 Rating:
     
Antwort:
  Ja
Thema:
Msgbox in For Schleife

Hey vielen Dank 

aber es scheint das ich da was flasch mach. Wenn ich das einfüge erscheint die MsgBox 5 mal obwohl das Material vorhanend ist. Kannst du da nochmal drüber schauen?

?
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
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
Sub Bsp()
    
  Dim strFilename As String
  Dim wks As Worksheet
  Dim bool1 As Boolean
  Dim bool2 As Boolean
  bool1 = False
  bool2 = False
   
     
  Set wks = Worksheets("Tabelle1")
    
  strFilename = Application.GetOpenFilename("Textdateien (*.tra), *.tra")
  'wks.Cells.Delete
    
  With Worksheets("Tabelle1")
    With .QueryTables.Add("TEXT;" & strFilename, Destination:=.Range("A2"))
      'verwende Codepage: Windows-1252 (Westeuropäisch); Alias 'Latin-1'
      .TextFilePlatform = 1252
      'Textformatierung
      .TextFileColumnDataTypes = Array(1, 1, 2, 1, 2, 2, 1, 1, 1, 1, 1, 1)
      'ggf. bereits bestehende Zelleninhalte überschreiben
      .RefreshStyle = XlCellInsertionMode.xlOverwriteCells
      'Spalten sind mit Semicolon (;) voneinander getrennt
      .TextFileSemicolonDelimiter = True
      'Daten importieren
      Call .Refresh(BackgroundQuery:=False)
      'Abfrage wieder entfernen (Daten bleiben weiterhin erhalten)
      Call .Delete
    End With
  End With
   
            Farbe = ""
            Querschnitt = ""
 
                'Tabelle umbenennen
                Worksheets(1).Select
                'ActiveSheet.Name = "ING_Export"
 
                wks.Select
                Range("B2").Select
 
                    'zeilenanzahl: Ermittlung nach Spalte BETRIEBSMITTELKENNZEICHENA
                    Zeilenanzahl = ActiveSheet.Cells(Rows.Count, 5).End(xlUp).Row - 1
 
 
                    ' ****************************************************************************************************************************
                    For i = 1 To Zeilenanzahl
     
                    '**************** Materialien *****************************************************************
 
                    Material = wks.Cells(1 + i, 2)
                    Worksheets("Material").Select
                    Range("B2").Select
                    Zeilenanzahl2 = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row - 1
     
                        For j = 1 To Zeilenanzahl2
                             
                            'Material in Zelle in Material suchen
                            If Material = Worksheets("Material").Cells(1 + j, 2) Then
                                    'Material setzen in Tabelle1
                                wks.Cells(1 + i, 2) = Worksheets("Material").Cells(1 + j, 1)
                                wks.Cells(1 + i, 25) = Worksheets("Material").Cells(1 + j, 7)
                                wks.Cells(1 + i, 26) = Worksheets("Material").Cells(1 + j, 8)
                                bool1 = True
                                 
                            End If
                          If bool1 = False Then MsgBox "Querschnitt fehlt!" & " " & Material
                        Next j
                         
                    Farbe = wks.Cells(1 + i, 1)
                    Worksheets("Material").Select
                    Range("E2").Select
                    Zeilenanzahl3 = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row - 1
     
                        For k = 1 To Zeilenanzahl3
 
                            'Farbe in Zelle in Material suchen
                            If Farbe = Worksheets("Material").Cells(1 + k, 5) Then
                                   'Farbe setzen in Tabelle1
                                wks.Cells(1 + i, 1) = Worksheets("Material").Cells(1 + k, 4)
                                bool2 = True
                                 
                            End If
                          If bool2 = False Then MsgBox "Farbe fehlen!" & " " & Farbe
                        Next k

 

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
10.12.2022 12:11:12 Marc.L
NotSolved
10.12.2022 13:15:02 Flotter Feger
NotSolved
Rot Msgbox in For Schleife
 11.12.2022 17:37:15 Marc.L
NotSolved
11.12.2022 17:51:59 Marc.L
NotSolved
11.12.2022 18:26:46 Flotter Feger
NotSolved
11.12.2022 19:51:12 Marc.L
NotSolved
11.12.2022 20:19:31 Gast61337
NotSolved