Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
19.04.2024 12:23:24
Wenn-Formel anpassen
19.04.2024 12:09:19
Unique (Application.WorksheetFunction.Unique)
19.04.2024 11:51:37
Nächsten identischen Treffer suchen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
184to188
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
184to188
184to188
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellen nur für Text verbinden

Zellen nur für Text verbinden
27.11.2002 15:28:13
Michi
Mahlzeit !

Schwierig zu erklären das Problem, also :

Zelle A1,A2,A3 haben jeweils Platz für sagen wir mal 140 Zeichen
Wenn ich jetzt in Zelle A1 , 200 Zeichen Eingebe sollen die
ersten 140 Zeichen in Zelle A1 zu sehen sein , die nächsten 140 Zeichen in Zelle A2 und der Rest in A3 am besten noch die Wörter beachtend.
Vom prinzip her also ein Zeilenumbruch der auf die nächste Zelle springt, ohne das der Benutzer selber darauf achten muß wann die Zeile zu Ende ist.
Ich hoffe das war verständlich !

Also bitte HIIIIIIIIIIIILLLLLLLLLFFFFFFEEEEEEEEE

Michi

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Zellen nur für Text verbinden
27.11.2002 15:50:31
Steffen D
Hallo Michi,

ich habe dass mal ausprobiert, und es klappt bei mir:


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then Länge = Len(Target) Else Exit Sub
temp = Target.Value
If Länge > 140 And Länge <= 280 Then
Target.Value = Left(temp, 140)
Target.Offset(0, 1).Value = Right(temp, Länge - 140)
End If
If Länge > 280 Then
Target.Value = Left(temp, 140)
Target.Offset(0, 1).Value = Mid(temp, 141, 140)
Target.Offset(0, 2).Value = Right(temp, Länge - 280)
End If
End Sub


diesen Code musst du in den Code der betreffender tabelle kopieren.


Gruss
Steffen D

Anzeige
Re: Zellen nur für Text verbinden
28.11.2002 07:52:13
Michi
Vielen Dank Steffen

Das sieht ja schon mal nicht schlecht aus.
Nur:
1. der Code verschiebt die Zeile nach rechts nicht nach unten also von A1 nach B1 usw.
2. wenn ich jetzt die erste Zeile Lösche hab ich ein fehler und Excel will debuggen.

Vieleicht noch als Zusatz:
Kann man die Wörter berücksichtigen, sprich nicht mitten im Wort trennen ?

Re: Zellen nur für Text verbinden
28.11.2002 08:05:31
Steffen D
Hallo Michi,

hiermit müsste es gehen:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then Länge = Len(Target) Else Exit Sub
temp = Target.Value
If Länge > 140 And Länge <= 280 Then
Target.Value = Left(temp, 140)
Target.Offset(1, 0).Value = Right(temp, Länge - 140)
End If
If Länge > 280 Then
Target.Value = Left(temp, 140)
Target.Offset(1, 0).Value = Mid(temp, 141, 140)
Target.Offset(2, 0).Value = Right(temp, Länge - 280)
End If
End Sub

Aber das mit dem Wörtern, weiß ich nicht wie man das machen könnte, da musst du wahrscheinlich nach einer Leerstelle suchen und dann an dieser Stelle trennen.


Gruss
Steffen

Anzeige
Re: Zellen nur für Text verbinden
28.11.2002 08:27:22
Michi
Danke nochmal.

Das mit dem nach unten verschieben klappt wunderbar, aber beim löschen irgend einer Zelle meckert Excel sofort und will debuggen ? Muß ich irgendwas deswegen noch beachten oder kann man diese Meldung irgendwie auschalten ?

Um dein Code zu erweitern auf noch mehr Zellen wie muß ich da vorgehen ??

Danke für deine Geduld mit mir

Gruß Michi


Re: Zellen nur für Text verbinden
28.11.2002 08:55:20
Steffen D
Hallo Michi,

hab gerade rumgemacht, probiermal diesen Code:
(er ist jetzt ein bisschen länger geworden, wörter werden erkannt und das ganze dann auf vier zeilen verteilt)

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next
temp = Target.Value
länge = Len(temp)
If Target.Column = 1 Then
If länge = 0 Then Exit Sub
If länge > 140 And länge <= 280 Then
trennen = InStr(130, temp, " ", vbTextCompare)
erste = Left(temp, trennen)
zweite = Right(temp, länge - trennen)
End If
If länge > 280 And länge <= 420 Then
trennen = InStr(130, temp, " ", vbTextCompare)
trennen2 = InStr(270, temp, " ", vbTextCompare)
erste = Left(temp, trennen)
zweite = Mid(temp, trennen + 1, trennen2)
dritte = Right(temp, länge - trennen2)
Else
dritte = ""
vierte = ""
End If
If länge > 420 Then
trennen = InStr(130, temp, " ", vbTextCompare)
trennen2 = InStr(270, temp, " ", vbTextCompare)
trennen3 = InStr(400, temp, " ", vbTextCompare)
erste = Left(temp, trennen)
zweite = Mid(temp, trennen + 1, trennen2 - trennen)
dritte = Mid(temp, trennen2 + 1, trennen3 - trennen2)
vierte = Right(temp, länge - trennen3)
Else
dritte = ""
vierte = ""
End If
Target.Value = erste
Target.Offset(1, 0).Value = zweite
Target.Offset(2, 0).Value = dritte
Target.Offset(3, 0).Value = vierte
Else
Exit Sub
End If
Application.EnableEvents = True
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub


Gruss
Steffen D

Anzeige
Re: Zellen nur für Text verbinden
28.11.2002 09:06:13
Steffen D
Hi,
es waren noch kleine Fehler drin :-)
hier die verbesserte Version:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next
temp = Target.Value
länge = Len(temp)
If Target.Column = 1 Then
If länge = 0 Then Exit Sub
If länge > 140 And länge <= 280 Then
trennen = InStr(130, temp, " ", vbTextCompare)
erste = Left(temp, trennen)
zweite = Right(temp, länge - trennen)
End If
If länge > 280 And länge <= 420 Then
trennen = InStr(130, temp, " ", vbTextCompare)
trennen2 = InStr(270, temp, " ", vbTextCompare)
erste = Left(temp, trennen)
zweite = Mid(temp, trennen + 1, trennen2 - trennen)
dritte = Right(temp, länge - trennen2)
Else
dritte = ""
vierte = ""
End If
If länge > 420 Then
trennen = InStr(130, temp, " ", vbTextCompare)
trennen2 = InStr(270, temp, " ", vbTextCompare)
trennen3 = InStr(400, temp, " ", vbTextCompare)
erste = Left(temp, trennen)
zweite = Mid(temp, trennen + 1, trennen2 - trennen)
dritte = Mid(temp, trennen2 + 1, trennen3 - trennen2)
vierte = Right(temp, länge - trennen3)
Else
vierte = ""
End If
Target.Value = erste
Target.Offset(1, 0).Value = zweite
Target.Offset(2, 0).Value = dritte
Target.Offset(3, 0).Value = vierte
Else
Exit Sub
End If
Application.EnableEvents = True
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub


gruss
Steffen

Anzeige
Super....aber.... :-)
28.11.2002 10:07:19
Michi
Nich erschrecken Steffen nur 'ne kleinigkeit noch dann las ich dich auch in Ruhe !!!! Versprochen :-)

Also wenn ich die zellen lösche und einen neuen text eingebe teilt er es nicht mehr . Muß ich den Code dann nochmal neu starten?

Vieleicht sollt ich mal'n VBA-Kurs mitmachen, hätt ja Vorteile ! :-))

Gruß Michi

Re: Super....aber.... :-)
28.11.2002 10:27:52
Steffen D
Hi,

da finde ich auch komisch, bei mir macht er auch nichts,
da kann ich dir leider nicht weiterhelfen.

Wenn du die datei wieder neu aufmachst dann gehts wieder, ich weiß nicht woran das liegen könnte.

musst du mal die Experten fragen, denn ich bin auch erst ein VBA-Anfänger.

poste ein neues thema mit diesem Code, vielleicht kann dir ja jemand anders weiterhelfen.


gruss
Steffen D

Anzeige
Na gut
28.11.2002 10:54:18
Michi
Trotzdem vielen Dank !!!!!

125 Forumthreads zu ähnlichen Themen

zählenwenn nur auf Teil einer Zelle basierend?
Sascha

Hallöchen,
folgendes Problem,
ich habe eine Artikelerfolgsauflistung (Alpha-Numerisch gefüllte Zellen) über den Bereich Tabelle3!A2-G99.
Über eine Lagerbestandsliste in Tabelle1!B2-B99, die ich per copy/paste täglich aktualisieren kann zählt mir das Programm automatisch die Menge, i...
13.11.2008 12:08:25
Thread-ID: 1024134
10 Beiträge
Anzeige
Zugriff auf auf Teilinhalte einer Zelle
Der

Hallo da Draußen!
Habe mal wieder ein Problem mit meiner VBA Programmierung. Ich möchte innerhalb einer Exceltabelle auf einzelne Zellen zugreifen, die ein bestimmtes Merkmal haben. Der Inhalt der Zelle beginnt mit einer Zahl (in diesem fall mit einer Postleitzahl). Ich möchte also meine Ab...
20.03.2009 14:52:09
Thread-ID: 1062230
5 Beiträge
Teil einer Formel in Zelle einlesen
Bernd

Hallo Freaks,
ich bastle nun schon geraume Zeit an einem Code, der mir in eine Zelle den Teil einer Formel (Kostenstellennamen) aus einer anderen Zelle schreibt.
Der nachstehene Code (von einem ausgeschiedenen Kollegen) ersetzt einen KST-Namen in einem Link mit einem neuen KST-Namen aus...
13.04.2009 12:55:24
Thread-ID: 1068432
6 Beiträge
Anzeige
Teilbereich aus einer Zelle
MikeM

Hallo zusammen,
eigentlich trivial aber ich bekomme es nicht hin.
In Zelle A1 steht: Datum: 01.01.2009
In A2 möchte ich stehen haben: 01.01.2009
Allerdings kann in A1 auch: 1.1.09 stehen
Die Formel: rechts(A1;10) würde funktionieren, wenn das Datum nicht auch im Format 1.1....
21.07.2009 08:16:34
Thread-ID: 1090112
4 Beiträge
Verteilung des Inhalts einer Zelle auf zwei Zellen
Jeanette

Hallo, gegeben eine Tabelle mit einer Spalte, die Informationen in folgender Form enthält:
1. Ein Wort oder mehrere Wörter, die durch Blank getrennt sind.
2. Unmittelbar auf das letzte dieser Wörter folgt ein Komma, gefolgt von einem Blank.
3. Danach öffnet sich eine Klammer „(„.
20.08.2009 16:33:59
Thread-ID: 1097466
5 Beiträge
per VBA Teile einer Zelle formatieren
Steinritz

Hallo!
Ich habe folgendes Problem:
Habe in Excel mit der VERKETTEN Funktion 4 Zellen verkettet.
Im Ergebnis z.B.
Nach Abzug der Gebühr in Höhe von 10,- € ergibt sich ein Gesamtbetrag von 200,- €.
Jetzt möchte ich in dieser Zelle nur den letzen Zahlenwert mit dem Währungssymb...
10.09.2009 18:45:11
Thread-ID: 1101849
3 Beiträge
Teilen von Zahlen in einer Zelle
Zahlen

Hallo
Ich habe in der Spalte E ca. 16'000 Zeilen mit Zahlenwerten die untereinander mit einem Komma getrennt sind
Beispiel einer solcher Zelle
350,166,12,45
Mein Wunsch ist es nun all diese Zahlen je Zelle einzeln aufzuteilen. Dies als VBA-Variante (?).
Also so, am Beispie...
10.11.2009 09:00:10
Thread-ID: 1115710
5 Beiträge
Hauptteil einer Zelle übernehmen
Harald

Hallo zusammen,
leider konnte ich die Überschrift nicht richtig deklarieren. Im Prinzip kann ich es auch nur mit einem Beispiel erklären.
In Spalte A und einigen viele Zeilen ist folgender Inhalt:
A1= "A1" B1= "1"
A2= "A2" B1= "2"
A3= "N1" B1= "3"
A1= "A4" B1...
02.12.2009 15:31:13
Thread-ID: 1121433
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
9
5
4
5
1
3
4
2
4
2
5
6
3
3
6
6
2
1
11
8
3
2
7
2
10