Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
308to312
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
308to312
308to312
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

aktiveSpalte in Userform Textbox vorbelegen

aktiveSpalte in Userform Textbox vorbelegen
18.09.2003 18:08:54
LotharP
Hallo Leute,

nachdem meine Frage mit Column wahrscheinlich nicht verstanden wurde frag ichs nochmal andersrum:

Ich habe ein Userform mit einer Textbox.
In diese Textbox möchte ich die momentan aktive Spalte als VORBELEGUNG schreiben.
Wenn möglich sollte die Spalte als Buchstabe erscheinen weil mein fortführendes Makro das irgendwie anders nicht versteht. Wenns nicht geht wär die Zahl der Spalte auch O.K. dann bastel ich den Rest halt um.

Hoffe das war verständlicher und es erbarmt sich einer?

Schonmal vorab vielen Dank!

Gruß

Lothar

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: aktiveSpalte in Userform Textbox vorbelegen
18.09.2003 18:13:29
Hajo_Zi
Hallo Lothar


Private Sub UserForm_Initialize()
TextBox1 = Left(ActiveCell.Address(True, False), InStr(ActiveCell.Address(True, False), "$") - 1)
End Sub


Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

Zurzeit gibt es wieder Probleme mit der E-Mail Benachrichtigung.

Ich bekomme Mails zu Beiträgen an denen ich nicht beteiligt bin und zusätzlich noch Mails zu meinen eigenen Beiträgen.
Das Problem mit den eigenen Benachrichtigung kann gelöst werden durch Lösche und Neuanmelden. Dieses möchte ich aber nicht jeden Tag machen.
Um dieses Problem erstmal zu beseitigen habe ich die automatische Mailbenachrichtigung abgeschaltet.
Aus diesem Grunde ist es dem Zufall überlassen ob auf Rückfragen Antworten von mir kommen.


http://home.media-n.de/ziplies/

Anzeige
AW: aktiveSpalte in Userform Textbox vorbelegen
19.09.2003 09:58:19
LotharP
Hallo Hajo,

Zunächst Danke für die Antwort!
Kannst du mir das bitte kurz erläutern?
Userform initialize---> Da denk ich muß ich ihm wohl irgendwo sagen welche Userform es ist oder?
Was sind die Parameter True/false?
Warum "$" und -1 Am Ende?

Also kurz und gut, das Einzige was mir aus dem Code was sagt ist Left und activeCell.
Ich hoffe ich nerv' nicht, aber einfach nur abschreiben und benutzen möcht' ich das auch nicht sondern bin dabei das zu lernen.
Bisher hab' ich auch enorm viel dazu gelernt und finds immer wieder genial wieviel du oder der ein oder andere Crack zu den Fragen beitragen kann! RÄSCHPÄKT!!

Nun denn, vielen Dank i.V.

Gruß

Lothar
Anzeige
AW: aktiveSpalte in Userform Textbox vorbelegen
19.09.2003 10:54:29
Hajo_Zi
Hallo Lothar

dann versuche ich mal eine Erklärung

Left(ActiveCell.Address(True, False), InStr(ActiveCell.Address(True, False), "$") - 1)
Left von links Zeichen lesen

ActiveCell.Address(True, False) das ist der Ausdruck aus dem gelesen werden soll, Zeile ohne absolut Zeichen und Spalte mit Absolutzeichen, das Absolut Zeichen wird im weiteren Verlauf gesucht, da ab dort die Spaltebezichnung zu Ende ist

InStr ist eine Suchfunktion in VBA die die numerische Postion des Suchzeichen zurück gibt

ActiveCell.Address(True, False) Ist der Zeichenausdruck in dem gesucht werden soll

"$" das Zeichen das gesucht werden soll

- 1 zb Zelladress Ab$1 das Zeichen $ ist an 3 Stelle im Wort -1 da nur die ersten beiden Zeichen benötigt werden.

Userform initialize wird beim Start der Userform ausgeführt und ist Bestandteil des Code der Userform.

Gruß Hajo
Anzeige
SUPER! DANKE!
19.09.2003 11:24:53
LotharP
Hallo Hajo,

absolute Euphorie!
Das was ich vorhatte funktioniert. Zwar hatte ich mit der Rückgabe des Buchstaben immer noch ein Dimensionierungsproblem, allerdings hab' ich das gelöst indem ich den Wert der Textbox in eine nichtdimensionierte Variable geschrieben habe. (ich weiss von hinten durchs Auge)
Das Teil was ich gebaut habe ist einfach nur ein Makro das eine Spalte nach einem Zeichen durchsucht und entweder diese Zeile löscht oder ausblendet.

Nochmals Danke!

Gruß

Lothar
Danke für die Rückmeldung oT
19.09.2003 11:26:07
Hajo_Zi
Test erfolgreich! Danke!
19.09.2003 10:14:21
LotharP
Hallo Hajo,

ich hatte dir gerade geantwortet ohne zu testen.
Ich hab' den code einfach mit in den Aufruf der UF genommen! Irgendwie auch klar.
Läuft so wie ich's wollte. SUPER! Nur wie gesagt wär eine kurze Erläuterung nett.

DANKE

Gruß

Lothar

Anzeige
AW: Test erfolgreich! Danke!
19.09.2003 11:03:49
Hajo_Zi
Hallo Lothar

es ist so das bei vielen Beiträgen über 50% keine Rückmeldung kommt aus diesem Grunde schreibe ich in den meisten Code keine Erklärung, da dieses ja auch Zeit kostet. Erklärung habe ich jetzt in den anderen Beitrag geschrieben.

Gruß hajo
HAB' ICH GESEHEN! DANKE (O.T)
19.09.2003 11:26:27
LotharP
.

305 Forumthreads zu ähnlichen Themen

Unterschiedliche Werte mit Bedingung
kerberus

Hallo liebes Forum
Ich benötige mal wieder eure Hilfe. Das Ziel: eine Formel die mir die Anzahl unterschiedliche Eintragungen liefert. Folgender Code konnte ich bis jetzt erstellen:
Function ZUnterschiede(Kriterium As String, Kriteriumbereich As Range, Wertebereich As Range) _ As D...
22.08.2008 10:34:00
Thread-ID: 1003771
3 Beiträge
Anzeige
Spaltentrennzeichen nach speichern in Text-Datei
Michael

Hallo
ich habe ein Problem. Vielleicht ist es schwierig, vielleicht aber auch nicht.
Ich habe eine Text-Datei mit Spaltentrennzeichen "|" (besser als ";" der Übersichtlichtlichkeit halber) und verschiedenen Längen der Spalten.
Ich will diese in Excel überarbeiten und als Text-Dat...
11.09.2008 09:28:00
Thread-ID: 1008978
3 Beiträge
Text in Spalten
Simone

Hallo zusammen,
ich hab ein wohl eher triviales Problem, komme aber trotzdem einfach nicht weiter.
Ich füge in ein Arbeitsblatt Daten aus einem anderen Programm ein. Jetzt habe ich mehrmals die Funktion 'Text in Spalten' verwendet / ausprobiert, und wenn ich jetzt wieder Daten in A1 ein...
16.09.2008 13:54:00
Thread-ID: 1010092
3 Beiträge
Anzeige
TextBox Werte in Spalte Q ersetzen ?
Selma

Hallo Leute,
ich habe eine Frage zu UserForm. Beim Klick auf CommandButton1 sollen die Zahlen aus TextBox1 mit Werten in Spalte Q ab Zeile 12 ersetzt werden. Dies soll nur dann erfolgen, wenn in TextBox1 die Zahlen stehen bzw. der TextBox gefüllt ist.
Ersetzt sollen nur die vorhandene W...
13.10.2008 15:42:00
Thread-ID: 1016083
3 Beiträge
Text in Spalten
Tom

Hallo,
ich möchte mit der Funktion Text in Spalten erreichen, dass alle Zeilen, die mit einer Zahl beginnen, nach der Zahl in eine neue Spalte geschoben werden - nur finde ich hierfür nur die Funktionen nach Leerzeichen, Komma usw...
Wer hat ne Lösung?
In A1: 1020 Maier Huber Mülle...
20.10.2008 14:09:42
Thread-ID: 1017654
7 Beiträge
Pivot - Text in Spalte überführen
Binu

Hallo
Ich hab in der Beispieldatei die Spalte "Zahl", welche ich in einer Pivotdatei ebenfalls als Spalte neben der Spalte "TExt" hinzufügen will. Nur kriege ich das nicht hin. Kann mir da jemand helfen? Besten Dank!
Gruss Albin
https://www.herber.de/bbs/user/56492.xls
04.11.2008 11:04:36
Thread-ID: 1021516
4 Beiträge
Liste auswerten mit Bedingungen
Bernd

Hallo zusammen,
ich würde gerne mal wieder eine lange Excel auswerten mit verschiedenen Bedingungen. Die relevanten Datensätze, auf die die Suchbedingung zutreffen, sollten in einem Extra-Registerblatt chronologisch aufgelistet werden. Wie kann ich das Problem vorzugsweise mit Excel-Boardmi...
19.11.2008 10:01:00
Thread-ID: 1025891
6 Beiträge
Text in Spalte nicht Spalte sondern Bereich
mehmet

Hallo Forum,
ich habe mit dem Makrorekorder "Text in Spalte" aufgezeichnet.
Wollte diese nun ändern für ein Bereich (Q4:Q60) statt Spalte (Q:Q).
Warum geht das nicht?
Private Sub CommandButton1_Click() ' Makro1 Makro ' Makro am 20.11.2008 von pc aufgezeichnet Sheets("Tabelle4"...
20.11.2008 17:10:38
Thread-ID: 1026492
3 Beiträge

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
3
2
2
3
2
6
3
5
2
2
4
4
5
2
5
28
6
1
5
7
5
5
2
4