Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
23.04.2020 08:44:03 |
Karin |
|
|
|
23.04.2020 08:56:47 |
Gast45550 |
|
|
|
23.04.2020 09:00:26 |
Gast6279 |
|
|
|
23.04.2020 09:17:45 |
Mase |
|
|
Befehlsschaltfläche active-x Steuerelement |
23.04.2020 09:05:28 |
Gast56001 |
|
|
|
24.04.2020 08:31:22 |
Mase |
|
|
Von:
Gast56001 |
Datum:
23.04.2020 09:05:28 |
Views:
751 |
Rating:
|
Antwort:
|
Thema:
Befehlsschaltfläche active-x Steuerelement |
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
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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 |
|
|
|
23.04.2020 08:56:47 |
Gast45550 |
|
|
|
23.04.2020 09:00:26 |
Gast6279 |
|
|
|
23.04.2020 09:17:45 |
Mase |
|
|
Befehlsschaltfläche active-x Steuerelement |
23.04.2020 09:05:28 |
Gast56001 |
|
|
|
24.04.2020 08:31:22 |
Mase |
|
|