Thema Datum  Von Nutzer Rating
Antwort
23.04.2020 08:44:03 Karin
NotSolved
23.04.2020 08:56:47 Gast45550
NotSolved
23.04.2020 09:00:26 Gast6279
NotSolved
23.04.2020 09:17:45 Mase
NotSolved
Rot Befehlsschaltfläche active-x Steuerelement
23.04.2020 09:05:28 Gast56001
NotSolved
24.04.2020 08:31:22 Mase
NotSolved

Ansicht des Beitrags:
Von:
Gast56001
Datum:
23.04.2020 09:05:28
Views:
963
Rating: Antwort:
  Ja
Thema:
Befehlsschaltfläche active-x Steuerelement
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
Hier ist der Code dazu ;)
 
Option Explicit
Dim Einsatzgebiet As Variant
 
Sub Aufbereiten()
On Error GoTo Err_Handler
 
Dim letzteZeile As Integer
Dim i As Integer
Dim n As Integer
Dim EinsatzgebietNr As Variant
 
'Tabellenblatt aktualisieren - per PowerQuery Abfrage hole ich aus Blatt1 und Blatt2 bestimmte Daten
   ActiveWorkbook.RefreshAll
     
   Application.ScreenUpdating = False
  
'Blatt Zusammen
With Tabelle4
'   Spalte B umbenennen
    .Range("B2").Value = "Einsatzgebiet"
     
'   Letzte Zeile in 1.Spalte von Blatt -Zusammen- ermitteln
    letzteZeile = .Range("A" & .Rows.Count).End(xlUp).Row
     
    i = letzteZeile
    n = 3                                          'Startzeile angeben
         
    For i = 1 To letzteZeile - 2                   '-2, weil das die Überschirften sind
         
      If IsNumeric(.Range("B" & n)) Then           'Nur wenn es eine Zahl ist
        EinsatzgebietNr = .Range("B" & n).Value
         
    '   Einsatzgebiet ermitteln
            LoseErmitteln EinsatzgebietNr
            .Range("B" & n).Value = Einsatzgebiet
      End If
       
        letzteZeile = letzteZeile - 1
        n = n + 1
    Next
 
End With
     
    Application.ScreenUpdating = True
             
Exit Sub
     
Err_Handler:
        MsgBox "Fehler in Sub: Aufbereiten" & vbCrLf & vbCrLf & Err.Number & " " & Err.Source & vbCrLf & Err.Description, , "Fehlermeldung"
         
End Sub
 
 
Sub LoseErmitteln(EinsatzgebietNr As Variant)
 
Dim letzteZeileLose As Integer
Dim i As Integer
Dim n As Integer
 
'Blatt Lengende Lose
With Tabelle2
    letzteZeileLose = .Range("A" & .Rows.Count).End(xlUp).Row
     
    i = letzteZeileLose
    n = 2                                          'Startzeile angeben
         
    For i = 1 To letzteZeileLose - 1                   '-2, weil das die Überschirften sind
         
        If EinsatzgebietNr = .Range("A" & n).Value Then
            Einsatzgebiet = .Range("B" & n).Value
            Exit Sub
        End If
        
        letzteZeileLose = letzteZeileLose - 1
      n = n + 1
    Next
 
End With
 
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
23.04.2020 08:44:03 Karin
NotSolved
23.04.2020 08:56:47 Gast45550
NotSolved
23.04.2020 09:00:26 Gast6279
NotSolved
23.04.2020 09:17:45 Mase
NotSolved
Rot Befehlsschaltfläche active-x Steuerelement
23.04.2020 09:05:28 Gast56001
NotSolved
24.04.2020 08:31:22 Mase
NotSolved