Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
26.04.2024 15:27:20
Excel öffnet nach Auswahl einer Excel diese leer
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1584to1588
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
1584to1588
1584to1588
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Teile von li. und re. einer Zelle kop/einfügen

Teile von li. und re. einer Zelle kop/einfügen
16.10.2017 12:26:32
li.
Hallo Gönner und Könner.
Eine Bitte:
Muss per VBA eine Zelle "A2" aus vielen .xls auslesen.
Code läuft perfekt nur
Leider wurde von den Usern die Firma und der Stand in eine Zelle mit vielen Leerzeichen (mal 5 mal 20)geschrieben.
z.B.
BABALON.........(Stand 13.05.2017)
BUBBLE POINT.................(Stand 09.09.2017)
FIRST & SECOND HAND BOUTIQUE.........................(Stand 02.06.2017)- Kommentar

Bräuchte jetzt die Firma - also alles von links bis zum großen Leerzeichenabstand:
TB1.Cells(LR, Spalte) = TB2.Range("A2..?..")
und den Stand - also alles von rechts bis zum großen Leerzeichenabstand:
TB1.Cells(LR, Spalte + 21) = TB2.Range("A2..?...")
Wer kann mir da bitte helfen.
Besten Dank und mfg
STeve

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Teile von li. und re. einer Zelle kop/einfügen
16.10.2017 12:44:34
li.
Hi Steve
Sub t()
Dim s As String
's = TB2.Range("A2")
s = "BUBBLE POINT       (Stand 09.09.2017)"
MsgBox Left(s, InStr(1, s, "  ") - 1)
MsgBox Right(s, 18)
End Sub
cu
Chris
AW: Teile von li. und re. einer Zelle kop/einfügen
16.10.2017 12:46:29
li.
Hi
kannst du so machen:
die Firma geht bis zum ersten Punkt: 
TB1.Cells(LR, Spalte) = Left(TB2.Range("A2"), Instr(TB2.Range("A2"), ".") - 1)

das Datum findest du, wenn du nach der Position des Textes mit den zwei Punkte suchst.
TB1.Cells(LR, Spalte + 21) = CDate(Mid(TB2.Range("A2"), Worksheetfunction.Search(" ?.?.?)", TB2.Range("A2")) + 1, 10))
gruß Daniel
Anzeige
AW: Teile von li. und re. einer Zelle kop/einfügen
16.10.2017 12:50:43
li.
Hallo,
linken Teil (jetzt nur mal für Zelle A2, für alle Zeilen muss das ganze in eine Schleife eingebunden werden): 
Left(TB2.Range("A2"), InStr(TB2Range("A2"), "     ") -1)

(wenn immer mindestens 5 Leerzeichen als Trennung dienen)
rechten Teil: 
Mid(TB2.Range("A2"), InStr(TB2.Range("A2"), "Stand ") +6, 10)
Gruß
Robert
AW: Teile von li. und re. einer Zelle kop/einfügen
16.10.2017 12:52:25
li.
Hallo
die Zielzellen musst du noch anpassen
Sub Leerzeichen()
    Dim Tb1, Spalte As Integer, LR As Double, i As Double
    Dim TMP As String, Pos As Integer
    
    Set Tb1 = Sheets("Tabelle1")
    Spalte = 1 'Spalte A 
    LR = Tb1.Cells(Tb1.Rows.Count, Spalte).End(xlUp).Row 'letzte Zeile der Spalte 

    For i = 2 To LR
        TMP = Tb1.Cells(i, Spalte)
        Pos = InStr(TMP, "(")
        If Pos > 0 Then
            Tb1.Cells(i, Spalte + 1) = RTrim(Left(TMP, Pos - 1))
            Tb1.Cells(i, Spalte + 2) = Mid(TMP, Pos)
        End If
    Next
End Sub

LG UweD
Anzeige
DANKE...wie immer super Support
16.10.2017 14:52:04
STeve
Großes Lob und Danke an ChrisL, Daniel, Robert Werner und UweD.
Wie immer habt ihr schnelle und saubere Lösungen angeboten.
Alle Lösungen funktionieren und welche ich anwende kann ich noch nicht sagen.
Wünsche euch einen schönen Tag noch.
mfg STeve

386 Forumthreads zu ähnlichen Themen

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
Anzeige
Zeichenkette in einer Zellesuchen
Gordon

Moin,
ich habe in einer Zelle (A1) einen Namen plus ein Datum dazu stehen: "Max Mustermann (01.01.1900)"
Nun möchte ich überprüfen, ob diese Zeichenkette, also Name plus Datum, nochmals in der Zelle A2 steht.
In der Zelle A2 stehen mehrere dieser Zeichenketten. Diese sind in einer...
26.09.2008 12:54:00
Thread-ID: 1012601
4 Beiträge
in spalte müssen 2 gleiche zahlen vorh. sein ...
Jessi

hallo zusammen,
suche nach einem makro, dass in spalte A überprüft ob von den dort geschriebenen zahlen jeweils zwei gleiche vorhanden sind. es geht um eine doppelbelegung eines zimmers. die zahl ist die zimmer-nr.
wäre z.b. nur einmal eine zahl in der spalte, wäre es möglich in das jew...
04.10.2008 15:33:00
Thread-ID: 1014154
5 Beiträge
Anzeige
Unicode-Zeichen in Textfeld von Userform
Userform

Hallo,
Ich bin auf der Suche nach gut praktikablen Möglichkeiten in ein Textfeld eines Userforms Unicode-Zeichen (z.B. ć kleines c mit Akut - Code 0107 oder č kleines c mit Caron - Code 010D) einzutippen.
Danke im voraus für alle Tipps!
Grüße
Günther
12.10.2008 12:34:00
Thread-ID: 1015836
5 Beiträge
Eine Zahl mit vorhandener Zahlenliste vergleichen
Niklas

Hallo Leute!
Es geht darum, eine eingegebene Zahl mit einer vorhandenen Zahlenliste vergleichen und die beiden nächstgelegenen Zahlen der Zahlenliste verwenden!
zur veranschaulichung:
ich habe die die zahlenliste : 1 , 2, 3, 4, 5, 6, 7
der eingegebene Wert ist z.B 1.5 dann soll...
17.10.2008 09:49:22
Thread-ID: 1017045
8 Beiträge
vorgegebene Summe aus Zahlen berechnen
mArsupiLami

Moin!
Ich benötige um regelmäßige Fehlerkorrekturen laufen zu lassen ein Script, dem ich eine Summe vorgebe und eine Range aus Zahlen (von mir aus Zellen A:A), das mir die Zusammenstellung aus Zahlen berechnet, die meine gesuchte Summe ergeben (Noch besser: Alle Kombinationen aus der Zahlen...
21.11.2008 11:25:35
Thread-ID: 1026668
6 Beiträge
Zelle des erstes Vorkommen eines Zeichens ausgeben
-s

Hallo Forum,
ich habe in Zeile 1 in jeder Spalte einen Buchsteben stehen:
a|b|c|c|c|e|
Wie kann ich die Zelle ausgeben lassen, in der beispielsweise das "c" das erste mal vorkommt? Als Ergebnis soll dann C1 ausgegeben werden.
Besten Dank!
-s
07.12.2008 21:32:00
Thread-ID: 1030929
4 Beiträge
Autofilter - Anzahl vorh. Sätze
KViertel

Hallo in die Runde,
In einem Tabellenblatt wird In VBA ein Autofilter gesetzt. Die dabei angezeigten Sätze sollen in ein anderes Tabellenblatt kopiert werden. Wenn jetzt keine Sätze vorhanden sind, wird die Sub abgebrochen. In der Recherche habe ich einen Hinweis zu Subtotal gefunden, weiß...
11.12.2008 11:45:00
Thread-ID: 1031999
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
11
3
4
3
4
7
5
3
2
4
2
2
5
2
7
11
2
4
4
3
4
5
10
2