VBA Globale Variablen definieren

Guten Morgen,
über eine Auswertung erhalte ich eine Region, ein Aktenzeichen und einen Gemeindeschlüssel.
Ich möchte eine Teamzuordnung der Fälle aufgrund verschiedener Kriterien machen.
Da diese Daten nicht immer in der gleichen Spalte stehen wird der erste Wert immer über eine Inputbox und Variable gelöst.
Im ersten Schritt, den ich bereits habe, bereite ich die Daten nochmals auf; im zweiten Schritt müsste ich das zuständige Team ermitteln.
Allerdings habe ich die Variablen, die ich wieder verwenden möchte "verloren". Natürlich habe ich gelesen und probiert, aber trotz Option Explcit und Public habe ich es nicht hinbekommen.
Beispieldatei: https://www.herber.de/bbs/user/142412.xlsm
Wichtigste Fragen:
Wie übernehme ich die schon deklarierten Variablen in die nachfolgenden Module?
Muss ich diese später gesondert wieder löschen oder entleeren?
Nice to have:
Wie ändere ich im 1. Modul "Range(Selection, Selection.End(xlDown)).Select" in die Schreibweise von unten nach oben "...(end(xlup).row"?
Wie bekomme ich die 3 select raus, die man ja nicht machen soll?
Danke schon mal im Voraus ihr fleißigen Helfer

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Public pub_reg_beg 'public_region_beginn Sub Region() 'Das Wort "Region " soll (i.d.R.) aus Spalte A entfernt werden '1. Variabler Beginn durch Inputbox Dim intSp%, lngLRow&, intUeb& ' Dim rngSel As Range Dim strSel As String On Error Resume Next Set pub_reg_beg = Application.InputBox("Bitte erste Zelle mit 'Region' in der Liste auswä _ hlen", "Auswahl Region", Type:=8) If pub_reg_beg Is Nothing Then Exit Sub On Error GoTo 0 strSel = pub_reg_beg.Address intUeb = Range(strSel).Row - 1 'Sprung in die Zeile darüber intSp = Range(strSel).Column 'Spalte mit dem Bereich lngLRow = Cells(Rows.Count, intSp).End(xlUp).Row 'letzte Zelle in Spalte ermitteln '2. Ab hier wird das Wort "Region " durch nichts ersetzt (= gelöscht) Range(strSel).Select Range(Selection, Selection.End(xlDown)).Select '

Sub Makro3() '"Region " (inkl. Leerzeichen) löschen (druch nichts ersetzen) Columns("A:A").Select Selection.Replace What:="Region ", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False 'azneu Komma in Punkt ersetzen Columns("B:B").Select Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False 'Gebietsnummer 8 Stellig For Each Z In Range(Range("C6"), Range("C6").End(xlDown)).Cells Z.Value = Right("'0" & Z.Value, 8) Next '3 letzte Stellen For Each Z In Range(Range("B6"), Range("BC6").End(xlDown)).Cells Z.Offset(0, 2) = Right(Z.Value, 3) Next 'Überschirft setzen Range("D5") = "azneu Endziffern" End Sub

Hallo Erwin,
was Du eigentlich möchtest, ist zu identifizieren, wo diese Spalte "Region" in der Tabelle liegt, richtig?
Eine Variable in einem VBA-Code ist dafür nicht optimal, weil sie nicht mit der Element selbst verbunden ist.
Du könntest Zellen der Überschrift einen Namen vergeben. Noch besser ist diese Bereich als Tabelle zu definieren: eine Zelle aus der Liste markieren, Strg+t drucken.
Dann hast Du ein Element, den man per VBA anfassen kann. Wenn nur eine solche Tabelle pro Blatt gibt, dann kann man sie eindeutig "anfassen".
Probiere es: in den 2 Blätter, die Du uns gesendet hast, Strg+t auf jede einzelne, dann folgende Code laufen lassen (Ausgabe in Direkt-Fenster, Strg+g in VB-Editor)

Sub ListObject_auflisten()
Dim W As Worksheet
Dim L As ListObject
For Each W In ThisWorkbook.Worksheets
For Each L In W.ListObjects
Debug.Print String(10, "-")
Debug.Print W.Name
Debug.Print L.Name, L.Range.Address
Debug.Print L.HeaderRowRange(1).Address, L.HeaderRowRange(1).Value
Debug.Print L.HeaderRowRange(2).Address, L.HeaderRowRange(2).Value
Debug.Print L.HeaderRowRange(3).Address, L.HeaderRowRange(3).Value
Next
Next
End Sub

bei mir kam das raus

----------
Teamaufteilung
Tabelle1      $A$4:$C$16
$A$4          region
$B$4          azneu
$C$4          Gemeindeschlüssel
Auswertung
Tabelle2      $A$5:$C$88
$A$5          region
$B$5          azneu
$C$5          Gemeindeschlüssel

Anhaltspunkte, wie man diese "ListObject" in VBA anspricht, findest Du hier:
https://www.thespreadsheetguru.com/blog/2014/6/20/the-vba-guide-to-listobject-excel-tables
Viel Erfolg
Yal

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

326 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Globale Variablen definieren

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

326 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread