Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1772to1776
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1772to1776
1772to1776
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA – vorhandenes Makro flexibler machen

VBA – vorhandenes Makro flexibler machen
29.07.2020 08:29:10
Erwin
Sonnigen guten Morgen,
ich habe ein (altes) laufendes Makro, welches die letzten 3 Stellen eines Aktenzeichens separiert.
Allerdings ist es so starr eingesetzt, dass es nur für Tabellen passt, wo das Aktenzeichen ab E2 steht.
Ich würde das gerne über eine Inputbox gelöst haben wollen, sodass ich die Stelle, an der das 1. Aktenzeichen steht, einfach anklicken kann.
VBA und Testbeispiele in beiliegender Datei: https://www.herber.de/bbs/user/139370.xlsm
Vielen Dank
Erwin

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: geraten
29.07.2020 09:03:11
Fennek
Hallo,
anstelle der festen Zuweisung zu Spalte "E" geht

Spalte = application.match("Aktenzeichen", activesheet.usedrange.rows(1),0)
ungeprüft, kann Tippfehler enthalten.
mfg
AW: geraten
29.07.2020 09:22:07
Erwin
Hallo Fennek,
danke schon mal für die Hilfe.
Ich weis leider gar nicht, wo ich das einfügen soll und was dafür raus müsste.
Bei mir erscheinen Fehlermeldungen wie "Laufzeitfehler 13. Typen unverträglich.
Was ist, wenn das Wort nicht "Aktenzeichen" heißt sondern nur "Aktenz."?
Kann man das nicht über eine Inputbox lösen, wo ich die Zelle des 1. Aktenzeichens anklicke?
Grüße - Erwin
Anzeige
AW: geraten
29.07.2020 09:25:52
MRUTOR
Hast du meine Loesung probiert?
AW: VBA – vorhandenes Makro flexibler machen
29.07.2020 09:06:43
MRUTOR
Hallo Erwin,
im Anhang deine Datei zurueck mit dem geaenderten Code. Es muss immer das erste Aktenzeichen selektiert werden und dann das Makro starten. Ich trage hier das Ergebnis ueber eine Schleife direkt ein, anstatt mit einer Formel zu arbeiten.
Gruss Torsten
https://www.herber.de/bbs/user/139371.xlsm
AW: VBA – vorhandenes Makro flexibler machen
29.07.2020 09:27:59
Erwin
Hallo Torsten,
auch dir danke für die Mühe.
Beim Verarbeiten der Datei steht der Cursor irgendwo, nur nicht auf dem "Aktenzeichen"
Ich bräuchte noch die Möglichkeit, den Cursor vorher zu platzieren (Inputbox), damit die Verarbeitung bei der richtigen Zelle beginnt.
Kannst du das bitte noch einbauen, dann wäre es perfekt?
Danke - Erwin
Anzeige
AW: VBA – vorhandenes Makro flexibler machen
29.07.2020 09:41:40
MRUTOR
Hallo Erwin,
dann den Code so ergaenzen: 

Sub AKZN_9_11_trennen()
Dim strSp$, intSp%, lngLRow&, intUeb&
Dim rngSel As Range, strSel As String
On Error Resume Next
Set rngSel = Application.InputBox("Bitte erstes Aktenzeichen in der Liste auswaehlen", " _
Auswahl", Type:=8)
If rngSel Is Nothing Then Exit Sub
On Error GoTo 0
strSel = rngSel.Address
intUeb = Selection.Row - 1 'Anzahl Zeilen für Spaltenüberschrift (0 für ohne)
intSp = Selection.Column
lngLRow = Cells(Rows.Count, intSp).End(xlUp).Row
strSp = Mid(strSel, 2, 1)
Columns(intSp + 1).Insert                             'Hilfsspalte einfügen
If intUeb > 0 Then _
Cells(intUeb, intSp + 1) = "Endziff." 'Wort Endziff. einfüßgen
For c = intUeb + 1 To lngLRow
Cells(c, intSp + 1) = Right(Cells(c, intSp), 3) 'letzte 3 Stellen
Next
Cells(intUeb + 1, intSp).Select  '1. Aktenzeichen selektieren
End Sub
Gruss Torsten
Anzeige
AW: VBA – vorhandenes Makro flexibler machen
29.07.2020 09:49:57
MRUTOR
Sorry,
da war noch ein kleines Fehlerchen drin: 

Sub AKZN_9_11_trennen()
Dim strSp$, intSp%, lngLRow&, intUeb&
Dim rngSel As Range, strSel As String
On Error Resume Next
Set rngSel = Application.InputBox("Bitte erstes Aktenzeichen in der Liste auswaehlen", " _
Auswahl", Type:=8)
If rngSel Is Nothing Then Exit Sub
On Error GoTo 0
strSel = rngSel.Address
intUeb = Range(strSel).Row - 1 'Anzahl Zeilen für Spaltenüberschrift (0 für ohne)
intSp = Range(strSel).Column
lngLRow = Cells(Rows.Count, intSp).End(xlUp).Row
Columns(intSp + 1).Insert                             'Hilfsspalte einfügen
If intUeb > 0 Then _
Cells(intUeb, intSp + 1) = "Endziff." 'Wort Endziff. einfüßgen
For c = intUeb + 1 To lngLRow
Cells(c, intSp + 1) = Right(Cells(c, intSp), 3) 'letzte 3 Stellen
Next
Cells(intUeb + 1, intSp).Select  '1. Aktenzeichen selektieren
End Sub

Anzeige
AW: VBA – vorhandenes Makro flexibler machen
29.07.2020 09:55:45
Erwin
Hallo Torsten,
das funzt ja fast perfekt ;)
Wenn das Aktenzeichen 11.123.456.002 lautet wird in der Spalte mit den Endziffern nur die Ziffer 2 ausgegeben.
Gibt es noch eine Möglichkeit, dass 002 erscheint?
Herzlichen Dank schon mal.
Erwin
AW: VBA – vorhandenes Makro flexibler machen
29.07.2020 10:03:58
MRUTOR
Klar geht das: 

Sub AKZN_9_11_trennen()
Dim strSp$, intSp%, lngLRow&, intUeb&
Dim rngSel As Range, strSel As String
On Error Resume Next
Set rngSel = Application.InputBox("Bitte erstes Aktenzeichen in der Liste auswaehlen", " _
Auswahl", Type:=8)
If rngSel Is Nothing Then Exit Sub
On Error GoTo 0
strSel = rngSel.Address
intUeb = Range(strSel).Row - 1 'Anzahl Zeilen für Spaltenüberschrift (0 für ohne)
intSp = Range(strSel).Column
lngLRow = Cells(Rows.Count, intSp).End(xlUp).Row
Columns(intSp + 1).Insert                             'Hilfsspalte einfügen
If intUeb > 0 Then _
Cells(intUeb, intSp + 1) = "Endziff." 'Wort Endziff. einfüßgen
For c = intUeb + 1 To lngLRow
Cells(c, intSp + 1) = Right(Cells(c, intSp), 3) 'letzte 3 Stellen
Cells(c, intSp + 1).NumberFormat = "000"
Next
Cells(intUeb + 1, intSp).Select  '1. Aktenzeichen selektieren
End Sub

Anzeige
Herzlichen Dank
29.07.2020 10:11:20
Erwin
Hallo Torsten,
vielen Dank für deine Ausdauer, jetzt ist das Makro so flexibel, dass ich es überall einsetzen kann.
Grüße - Erwin
Freut mich...
29.07.2020 10:23:51
MRUTOR
...geholfen zu haben.
Gruss

242 Forumthreads zu ähnlichen Themen

Command Button schützen vor VBA
Hüseyin

Hallo zusammen,
habe eine kurze Frage und hoffe ihr könnt mir weiterhelfen,
ich habe ein Exceldokument mit Commandbuttons drin. Wenn ich allerdings über VBA eine "Sortierung" oder "Komprimierung" über das Tabellenblatt laufen lasse, werden meine Buttons kleiner bzw. sehen gequetscht aus...
28.10.2008 11:21:33
Thread-ID: 1019856
3 Beiträge
Anzeige
IF/ELSE in Excel (Porto anhand Gewicht berechnen)
Thomas

Hallo zusammen,
ich erstelle gerade ein Bestellformular mit Excel 2007 und möchte ein IF/ELSE Abfrage erstellen, die im Großen und Ganzen anhand eines bekannten Gewichtes die Preisliste von DHL abbildet.
Das ganze würde ich so oder so ähnlich formulieren:
if ($gewicht_kg >...
30.01.2009 12:55:49
Thread-ID: 1045369
5 Beiträge
Andere Schreibweise für Formel in VBA
MAS

Einen wunderschönen guten Abend,
ich muss in einem Tabellenblatt einige Formeln per VBA erzeugen.
Mit Hilfe des Makrorecorders müsste ich diesen String erzeugen - die Formel ist allerdings nur recht schwer lesbar
Würde gerne schöne Zellbezeichnungen angeben - was muß ich denn dazu...
04.03.2009 16:56:56
Thread-ID: 1056514
5 Beiträge
Anzeige
VBA Code if or then nicht richtig
andreas

Hallo zusammen,
habe hier in einer Anwendung einen kleine Code bei dem wird der Systembenutzer abgefragt, das funktioniert. Jetzt soll folgendes passieren, wenn der Benutzer "Andreas" oder "martin2" ist, soll Spalte "f:G" eingeblendet sein, bei allen anderen Systembenutzern soll Spalte "F:G...
13.05.2009 11:25:25
Thread-ID: 1074763
9 Beiträge
VBA: abfragen, ob benannte Tabelle vorhanden ist
André

Moin zusammen,
wie kann ich per VBA abfragen, ob in einem Tabellenblatt bereits eine "benannte Tabelle" definiert ist?
Ich erstelle die Tabelle mit
Worksheets("Datensätze").ListObjects.Add(xlSrcRange, rg, , xlYes).Name = "Datenbereich"
Läuft das Makro dann ein weiteres mal, kom...
12.06.2009 14:18:00
Thread-ID: 1080995
2 Beiträge
Datum in andere Spalte mit and. Format VBA
Wolfgang

Hallo,
in Spalte F, ab Zeile 2 befinden sich Daten im Format "18.06.2009" - wäre denkbar, dass jeweils dieses Datum in Spalte R im Format "Juni 09" wiederholt/konvertiert wird? Die Anzahl der Zellen ist jeweils unbekannt, das Konvertieren würde ich gerne immer beim Start der Excel-Mappe vor...
18.06.2009 21:23:07
Thread-ID: 1082734
6 Beiträge
VBA - Formeln kopieren mit Bezug auf andere Sheets
Fabian

Hallo Zusammen,
ich habe folgende Problemstellung:
Eine Exceldatei *xlsx mit insgesamt 4 Tabellenblättern.
Tabellenblatt 1 - Material Data - Dateneingabe ab Zeile 2.
Tabellenblatt 2 - ABCXYZ - nicht relevant für das Problem
Tabellenblatt 3 - Life Time Cycle - Berechnung, di...
16.09.2009 09:14:54
Thread-ID: 1103102
5 Beiträge
aus anderer Mappe Spalten importieren VBA
Wolfgang

Hallo,
aus einer anderen Anwendung wird eine Excel-Mappe mit Namen "Liste1" generiert. Wäre denkbar, dass ich aus dieser geöffneten Mappe mittels VBA bestimmte Spalten (z.B. A-C, dann erst wieder F, H etc.) in eine neue Mappe importieren kann. Problem ist vielleicht, dass die Überschriften...
27.09.2009 12:28:39
Thread-ID: 1105822
7 Beiträge
Anzeige

Links zu Excel-Dialogen

InputBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
6
4
4
1
8
1
5
4
6
4
5
8
6
5
6
3
7
3
4
4
8
5
4
2