Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1776to1780
1776to1780
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Adressdaten aus ZWA in Textboxes

Forumthread: Adressdaten aus ZWA in Textboxes

Adressdaten aus ZWA in Textboxes
21.08.2020 10:41:16
Wolfgang
Hallo,
aus einer anderen Anwendungen übernehme ich derzeit noch manuell Adressdaten im Format:
Frau Müller, Sabine
Mozartstr. 41
12345 Berlin
Könnte denkbar sein, diese Daten aus der Zwischenablage in Textboxes eines UF aufzuteilen.
TB1= Anrede
TB2 = Name
TB3 = Vorname
TB4 = Straße
TB5 = PLZ
TB6 = Ort
Ich würde mich sehr freuen, wenn das funktionieren könnte, dann hätte ich erheblich weniger Tipparbeiten.
Herzlichen Dank schon jetzt für die Rückmeldungen und viele Grüße - Wolfgang
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Adressdaten aus ZWA in Textboxes
21.08.2020 12:18:13
Nepumuk
Hallo Wolfgang,
teste mal:
Private Sub UserForm_Activate()
    
    Dim strText As String
    Dim avntValues As Variant, vntItem As Variant
    Dim ialngIndex As Long, lngIndex As Long
    Dim objClipBoard As DataObject
    
    Set objClipBoard = New DataObject
    Call objClipBoard.GetFromClipboard
    strText = objClipBoard.GetText
    Set objClipBoard = Nothing
    
    avntValues = Split(strText, vbCrLf)
    
    TextBox1.Text = Split(avntValues(0), " ")(0)
    
    For Each vntItem In Split(avntValues(0), " ")
        
        If Right$(vntItem, 1) = "," Then Exit For
        lngIndex = lngIndex + 1
        
    Next
    
    For ialngIndex = 1 To lngIndex
        
        TextBox2.Text = TextBox2.Text & Split(avntValues(0), " ")(ialngIndex) & " "
        
    Next
    
    TextBox2.Text = Replace$(TextBox2.Text, ",", vbNullString)
    
    TextBox2.Text = Trim$(TextBox2.Text)
    
    For ialngIndex = lngIndex + 1 To UBound(Split(avntValues(0), " "))
        
        TextBox3.Text = TextBox3.Text & Split(avntValues(0), " ")(ialngIndex) & " "
        
    Next
    
    TextBox3.Text = Trim$(TextBox3.Text)
    
    TextBox4.Text = avntValues(1)
    
    TextBox5.Text = Split(avntValues(2), " ")(0)
    
    For ialngIndex = 1 To UBound(Split(avntValues(2), " "))
        
        TextBox6.Text = TextBox6.Text & Split(avntValues(2), " ")(ialngIndex) & " "
        
    Next
    
    TextBox6.Text = Trim$(TextBox6.Text)
    
End Sub

Gruß
Nepumuk
Anzeige
Index außerhalb des gültigen Bereichs
21.08.2020 12:48:39
Wolfgang
Hallo Nepumuk,
zunächst vielen vielen Dank für Deine schnelle Rückmeldung. Ich habe den Code "eingebaut" - er stoppt bei: TextBox1.Text = Split(avntValues(0), " ")(0) - Hättest Du da evtl. eine Idee, woran das liegen könnte? - Danke schon jetzt wieder für Deine Rückmeldung. Gruß - Wolfgang
AW: Index außerhalb des gültigen Bereichs
21.08.2020 12:56:00
Nepumuk
Hallo Wolfgang,
ändere mal:
avntValues = Split(strText, vbLf)

Gruß
Nepumuk
Anzeige
Leider keine Veränderung
21.08.2020 13:16:50
Wolfgang
Hallo Nepumuk,
Fehlermeldung bleibt leider weiterhin.
Gruß - Wolfgang
AW: Leider keine Veränderung
21.08.2020 13:25:26
Nepumuk
Hallo Wolfgang,
ändere mal:
avntValues = Split(strText, vbCr)
irgendein Umbruch muss ja passen. Wenn nicht, dann füge die Zwischenablage mal in den Texteditor ein. Wie sieht dass dann aus?
Gruß
Nepumuk
Anzeige
i.Texteditor dazwischen jeweils 3 Leerzeilen
21.08.2020 13:37:27
Wolfgang
Hallo Nepumuk,
die Fehlermeldung bleibt weiterhin. Habe somit die Zwischenablage in den Texteditor kopiert.
Es sind tatsächlich jeweils zwischen den "Zeilen" 3 Leerzeilen.
Gruß - Wolfgang
Herr Müller, Alfred
Kastanienweg.....
AW: i.Texteditor dazwischen jeweils 3 Leerzeilen
21.08.2020 13:44:29
Nepumuk
Hallo Wolfgang,
füg das mal in eine .txt ein und lade die hoch.
Gruß
Nepumuk
Anzeige
AW: i.Texteditor dazwischen jeweils 3 Leerzeilen
21.08.2020 13:58:17
Nepumuk
Hallo Wolfgang,
teste jetzt mal:
Private Sub UserForm_Activate()
    
    Dim strText As String
    Dim avntValues As Variant, vntItem As Variant
    Dim ialngIndex As Long, lngIndex As Long
    Dim objClipBoard As DataObject
    
    Set objClipBoard = New DataObject
    Call objClipBoard.GetFromClipboard
    strText = objClipBoard.GetText
    Set objClipBoard = Nothing
    
    avntValues = Split(strText, vbCrLf)
    
    TextBox1.Text = Split(avntValues(2), " ")(0)
    
    For Each vntItem In Split(avntValues(2), " ")
        
        If Right$(vntItem, 1) = "," Then Exit For
        lngIndex = lngIndex + 1
        
    Next
    
    For ialngIndex = 1 To lngIndex
        
        TextBox2.Text = TextBox2.Text & Split(avntValues(2), " ")(ialngIndex) & " "
        
    Next
    
    TextBox2.Text = Replace$(TextBox2.Text, ",", vbNullString)
    
    TextBox2.Text = Trim$(TextBox2.Text)
    
    For ialngIndex = lngIndex + 1 To UBound(Split(avntValues(2), " "))
        
        TextBox3.Text = TextBox3.Text & Split(avntValues(2), " ")(ialngIndex) & " "
        
    Next
    
    TextBox3.Text = Trim$(TextBox3.Text)
    
    TextBox4.Text = avntValues(6)
    
    TextBox5.Text = Split(avntValues(10), " ")(0)
    
    For ialngIndex = 1 To UBound(Split(avntValues(10), " "))
        
        TextBox6.Text = TextBox6.Text & Split(avntValues(10), " ")(ialngIndex) & " "
        
    Next
    
    TextBox6.Text = Trim$(TextBox6.Text)
    
End Sub

Gruß
Nepumuk
Anzeige
Super - tadellos!! - Tausend Dank!!!
21.08.2020 14:03:17
Wolfgang
Hallo Nepumuk,
vielen vielen Dank! - Das funktioniert nun wunderbar. Du hast mir sehr geholfen!! - Vielen Dank auch für Deine Geduld mit mir. Ich freue mich sehr.
Alles Gute weiterhin und Herzliche Grüße - Wolfgang
Ergänzung - zwischen d. Wörtern = Leerzeichen
21.08.2020 13:46:11
Wolfgang
könnte evtl. auch wichtig sein? Zwischen den Wörtern befindet sich jeweils ein Leerzeichen.
Gruß - Wolfgang
Anzeige
;

Forumthreads zu verwandten Themen

datenimport aus excel in excel
caot

Hi mal wieder!
ich hab mal wieder ne frage:
es sind ca 1200 Excel Dateien aus denen jeweils aus ein paar Zeilen und Spalten die Werte in eine Exceldatei eingelesn werden sollen.
Die Ursprungsdateien sind laufend nummeriert... und dann
kommt noch ein name als nummer- name.xls <...
09.08.2008 11:22:00
Thread-ID: 1000469
3 Beiträge
Daten aus vielen xls-Datein auslesen
Daniel

Hallo Profis,
ich suche einen VBA-Befehl für folgendes:
Ich habe einen Ordner mit vielen xls-Dateien. Diese sollen nun alle in einer Datei zusammengefahren werden, alle Zeilen, wenn der Wert der 2. Spalte links mit "12345" anfängt.
Geht dies?
Vielen Dank vorab.
Daniel
...
18.08.2008 15:07:01
Thread-ID: 1002621
2 Beiträge
Anzeige
daten aus Arbeitsmappe einlesen
Peter

Hallo,
kurze Fragestellung an die Experten. Habe mir einen Code zusammengebastelt, der in einer geöffneten Arbeitsmappe, bestimmte Daten aus einer anderen noch "unbestimmten" Arbeitsmappe importieren soll. Funktioniert auch, jedoch kommt mir der Code zu unübersichtlich und auch "unsauber" v...
19.08.2008 13:25:00
Thread-ID: 1002916
3 Beiträge
Textdatei per VBA einlesen
Werner

Ich möchte eine Textdatei per VBA einlesen. Untenstehender Versuch bringt die Fehlermeldung:
Excel kann auf die Datei in '' nicht zugreifen.
Die Datei ist unter Umständen schreibgeschützt oder verschlüsselt.
Woher weiß das Makro das, wo ich noch gar keinen Dateinamen angegeben habe...
11.09.2008 09:57:26
Thread-ID: 1008986
4 Beiträge
Datenvergleich und danach ausgegebene Info
Merle

Guten morgen alle zusammen!
Hab mal wieder eine Frage. Kriege ständig irgendwelche Listen, die ich zusammenfassen soll.
Hier ein Beispiel meiner Liste:
https://www.herber.de/bbs/user/55376.xls
Ich hätte es gerne, dass wenn ich in der Liste in Tabelle1, nur die Bez. D127 aus dem...
15.09.2008 08:58:00
Thread-ID: 1009662
2 Beiträge
Daten aus Userfom in eine ausgeblendete Tabelle
Ramon

Hallo alle zusammen,
ich möchte nach Klick auf den Command_Button "cb_send" Eingabewerte aus einer
Userform in eine Tabelle schreiben.
In Abhängigkeit der eingegebenen Werte sollen die Daten entweder in das Tabllenblatt
"data_booked" oder in "data_planned" geschrieben werden, u...
16.09.2008 12:28:00
Thread-ID: 1010054
5 Beiträge
Daten aus Zellbereich in eine neue Arbeitsmappe
André

Für eine "Tägliche Auswertung" suche ich ein Makro.
Meine erste Idee war es, hier im Forum zu suchen, ob es da nicht schon was gibt. Leider erfolglos. Ich hab zwar Makros gefunden, die ein neues Wks erstellen mit genau den Vorgaben, die ich brauche und ein Makro zum Zellenbereich kopieren,...
26.09.2008 10:23:00
Thread-ID: 1012532
3 Beiträge
Daten aus Tabelle in eine andere Tabelle
Cornelia

Ich habe 2 Tabellen mit dem gleichen Aufbau.
Tabelle 1 soll die Daten eingetragen werden. Von mehreren Leuten. Deshalb eben seperat.
Tabelle 2 soll die Daten aus Tabelle 1 übernehmen. Jeweils ein Blatt mit identischen Blattnamen aus Tabelle 1. Bisherige Lösung von mir in jede Zelle rein...
01.10.2008 08:11:00
Thread-ID: 1013510
6 Beiträge
Daten aus Inputbox in Zellen untereinander lesen
Peter

Hallo
Bin neu hier, und auch ein Anfänger in VBA, habe folgendes Problem.
Ich möchte, das Datum über eine InputBox in die Zellen untereinander schreiben lassen, also wenn ich am Freitag was Schreibe soll das Datum in A1 stehen, beim nächsten Aufruf der InputBox, soll das Datum in A2 ges...
09.10.2008 20:00:59
Thread-ID: 1015445
3 Beiträge
Import von daten aus txt file
daten

Guten Morgen an alle VBA-Aktivisten
Ich hätte mal ne kleine Frage. Ich hab einen Code der es mir ermöglicht innerhalb eines Tabellenblattes über einen Button eine txt-Datei zu öffnen und in eine bestehende Tabelle einzulesen. Leider fängt er immer im txt file ganz oben links an. Wie kann ic...
10.10.2008 09:07:22
Thread-ID: 1015499
6 Beiträge
Anzeige
Neuanordnung von Quelldaten aus Spalte in Zeile
Quelldaten

Hallo liebe Excel-Freunde,
folgendes Excel-Problem kann ich nicht lösen:
ich habe zwei Excelspalten mit Daten.
Die erste Spalte enthält eine fortlaufende Nummerierung. In der zweiten Spalte befinden sich untereinander zwei zusammengehörige Werte, also z. B. so:
Spalte 1___Spalt...
10.10.2008 15:05:18
Thread-ID: 1015600
7 Beiträge
Anzeige
Daten aus einer anderen Mappe auslesen
Uwe

Hallo zusammen, habe mir einen funktionierenden Einsatzplan für 24 MA und 3 Schichten zusammengebastelt welcher die Monate inkl. Feiertage und Wochenenden dynamisch generiert.
Nun möchte ich wenn ich im zum Beispiel den Einsatzplan für die Mitarbeiter für Februar abrechne, das Excel sich...
14.10.2008 22:12:36
Thread-ID: 1016451
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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