Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 10:30:04
Suche mit MINWENNS und Rückgabe mehrerer Werte
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
25.04.2024 09:31:31
Bild "In Zelle platzieren"
25.04.2024 09:23:47
Spalten in Kreuztabelle hinzufügen/löschen je nach Vorgabe
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1092to1096
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
1092to1096
1092to1096
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Hilfe: Zelleninhalt abschneiden

Hilfe: Zelleninhalt abschneiden
HansP
Hallo!
Ich habe ein Problem mit dem abschneiden vom Zelleninhalt.
Problem:
In Zelle D5 steht der Wert 123456789 / 123456
Den Wert muss ich auf 2 Zellen aufteilen. In H6 soll stehen "123456789" und in H7 "23456". Mein _
Ansatz bisher schlägt allerdings fehl, und in die Zellen wird nichts eingetragen. 

ActiveSheet.Range("H8").Select = Left(D5, Len(D5) - 9)
ActiveSheet.Range("H9").Select = Right(D5, Len(D5) - 13)

Was mache ich falsch?
AW: Hilfe: Zelleninhalt abschneiden
13.08.2009 14:27:54
Wolli
so:
ActiveSheet.Range("H8") = Left(ActiveSheet.Range("D5"), Len(ActiveSheet.Range("D5")) - 9)
Gruß, Wolli
AW: Hilfe: Zelleninhalt abschneiden
13.08.2009 14:28:27
Rudi
Hallo,
was soll das .Select?
Range("H8")=split(Range(D5, "/")(0)
Range("H9")=split(Range(D5, "/")(1)
Gruß
Rudi
AW: Hilfe: Zelleninhalt abschneiden
13.08.2009 16:33:19
Wolli
Ei, die Split-Funktion war mir tatsächlich neu. Danke, Rudi!
Gruß, Wolli
AW: Hilfe: Zelleninhalt abschneiden
13.08.2009 14:32:40
OliverP
Hallo Hans,
1. ActiveSheet.Range("H8").Value = Left(D5, Len(D5) - 9)
Dies wäre aber so fix, d.h. wenn sich die Länge der ersten Zahlenkolonne sich ändert würde dieses nichts bringen.
Daher folgendender Ansatz 
Sub test()
myarray = Split(Range("D5"), "/")
Range("H8").Value = myarray(0)
Range("H9").Value = myarray(1)
End Sub
Gruss Oliver
Anzeige
AW: Hilfe: Zelleninhalt abschneiden
13.08.2009 17:04:32
HansP
Danke! Der Tipp von Wolli hat auf Anhieb funktioniert. Nun quäle ich mich damit rum, eine führende Null in VBA zu übergeben...
Ich mache 

ActiveSheet.Range("H9") = Right(ActiveSheet.Range("D5"), Len(ActiveSheet.Range("D5")) - 12)
Dateiname2 = ActiveSheet.Range("H9")

Wenn ich nun in H9 zb. "02000" stehen haben müsste, erhalte ich dort nur "2000". Die Zelle _ vorher oder nachher mit 

Selection.NumberFormat = "00000"
zu formatieren bringt nichts. Habe auch schon Selection.NumberFormat = "\00000" und Selection.NumberFormat = "@" durch. Ich kriege den Wert einfach nicht 5stellig rüber, wenn ich eine führende Null habe.
Anzeige
AW: Hilfe: Zelleninhalt abschneiden
13.08.2009 17:39:31
OliverP
Hallo Hans,
Selection.NumberFormat kann nur die Zelle formatieren, welches auch markiert ist. Der Ansatz war also richtig, nur wird er die vorher marktierte Zelle formatieren und nicht die Zelle H0
D.h. du musst die Zelle angeben.
ActiveSheet.Range("H9").NumberFormat = "00000"
Gruss
Oliver
AW: Hilfe: Zelleninhalt abschneiden
13.08.2009 17:59:30
HansP
Hallo Oliver,
die Selection führe ich schon aus, aber es passt trotzdem nicht. Nochmal der (erweiterte) Code-Schnipsel 

Sheets("Worktmp1").Range("H9").Select
ActiveSheet.Range("H9").NumberFormat = "00000"
ActiveSheet.Range("H9") = Right(ActiveSheet.Range("D5"), Len(ActiveSheet.Range("D5")) - 12)
ActiveSheet.Range("H9").NumberFormat = "00000"
Dateiname2 = ActiveSheet.Range("H9")

Das NumberFormat 2 mal vorkommt, liegt daran, das ich erstmal auf Nummer sicher gehen wollte / will. Hilft aber alles nix das Teil bleibt 4stellig.
Anzeige
AW: Bei mir geht es
13.08.2009 18:11:50
OliverP
Hallo Hans,
bei mir läft es ohne Probleme.
Gruss
Oliver
AW: Eventuell 6 Stellen?
13.08.2009 18:25:02
OliverP
Könnte es sein, dass du statt 6 (im deinem Beispiel 123456789 / 123456 besteht die letzte Zifferfolge aus 6 Stellen) mit 5 Stellen arbeiten willst?
Wenn Du nun eine 123456789 / 020000 mit der Formatierung "00000" nimmst, kann nur 20000 rauskommen.
Gruss
Oliver
AW: Eventuell 6 Stellen?
13.08.2009 18:35:23
HansP
Innerhalb der Zelle steht 02000, aber in der Weiterverarbeitung ist Schluss. Mit 

myWord.ActiveDocument.ExportAsFixedFormat OutputFileName:=sPath & "\Rechnung\" & "Re" & Dateiname & "_" & Dateiname2 & "_DE" & ".pdf"
vergebe ich den Namen und exportiere als PDF. Aber anstelle von "Re123456789_02000_DE.pdf" erhalte ich immer "Re123456789_2000_DE.pdf". Egal wie ich die Zelle formatiere - die führende Null / führenden Nullen sind weg.
Anzeige
AW: Eventuell 6 Stellen?
13.08.2009 18:59:06
OliverP
Hallo Hans,
ActiveSheet.Range("H9").Value = Right(ActiveSheet.Range("D5"), Len(ActiveSheet.Range("D5")) - 12)
Range("H9").NumberFormat = "@"
oder
dim test as string
test = Right(ActiveSheet.Range("D5"), Len(ActiveSheet.Range("D5")) - 12)
Dateiname2 = test
Dies gilt nur, wenn aus Right(ActiveSheet.Range("D5"), Len(ActiveSheet.Range("D5")) - 12) der Text "02000" heraus kommt.
Gruss
Oliver
AW: Eventuell 6 Stellen?
13.08.2009 19:13:47
HansP
Ich habs einmal gedreht 

AvticeSheet.Range("H9").NumberFormat = "@"
ActiveSheet.Range("H9").Value = Right(ActiveSheet.Range("D5"), Len(ActiveSheet.Range("D5")) -  _
12)

Jetzt passt es. Das "Value" war der entscheidende Parameter.
Danke!
Anzeige

303 Forumthreads zu ähnlichen Themen

Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:33:59
Thread-ID: 1000866
3 Beiträge
Anzeige
Textteile in Zellen mit Liste vergleichen
susidimarca

Hallo,
ich habe derzeit ein kniffeliges Excelproblem.
ich möchte gerne den Text in Zellen
hjgshgjdf Kriterium2 kjhfkjhfksdjhf
dskj Kriterium1 ajdhasjdhakjdhakdhajkdhajkdakj
daudzauizdaiudzaidzaisdz Kriterium3 kajhdasks
mit den Kriterium eine anderen Tabelle vergleichen...
21.08.2008 10:05:00
Thread-ID: 1003378
6 Beiträge
Wenn nur Text in Zelle...
MichiM

Hallo,
ich habe eine umfangreiche Artikelliste (ca. 250.000 Artikel) aus einer Datanormdatei erstellt.
Aus dieser muss ich jetzt alle Artikel entfernen, dessen Artikelnummer (in Spalte A; als Text formatiert, damit führende Nullen nicht gelöscht werden) keinerlei Zahlen enthalten.
E...
22.08.2008 16:24:44
Thread-ID: 1003960
4 Beiträge
Anzeige
Zelleninhalt (Text) in 2 Spalten teilen
El.

Hallo!
Habe eine Spalte in der Artikelname und Artikelmerkmale, durch drei Punkte getrennt "...", zusammen stehen. Beispiel: Lecker Whisky 21 Jahre ... Lieferung in hochwertiger Schatulle
Wie krieg ich nun den Text links der Punkte in eine extra Spalte und rechts der Punkte in eine extr...
03.09.2008 16:35:00
Thread-ID: 1007155
4 Beiträge
Text verbinden und den Inhalt der Zelle ausgeben
Jörg

Hallo,
ich benötige etwas Hilfe, vermutlich für euch kein Problem:
in Zelle A1 möchte ich den Spaltenbuchstaben eintragen
in Zelle A2 möchte ich eine Zeilennummer eintragen
in Zelle A3 fehlt mir nun die Formel, mit der ich A1undA2 verbinden kann UND dann den Inhalt der Zelle aus...
19.09.2008 11:42:31
Thread-ID: 1010969
6 Beiträge
Textinhalte aus Zellen zusammenkopieren
zehetner

Liebe Profis,
ich habe die Ergebnisse einer Befragung in ein Excel-Sheet eingegeben, jeder Befragte in ein Registerblatt. Nun möchte ich die Antworten der Befragten, die in Textfeldern (immer in den selben, zB E145 stehen) gesammelt in eine neue Tabelle bringen.
Ziel ist es, die Antwort...
21.09.2008 18:29:25
Thread-ID: 1011343
2 Beiträge
Zelle auf Inhalt Text oder Zahl prüfen
Moritz

Hallo,
ich habe eine sehr große Tabelle mit Adressen. Problem ist nur, dass die Straßen, PLZ und so nicht untereinander in einer Spalte stehen sondern alle unterschiedlich verrückt sind je nachdem wie viele Vorname oder Nachnamen jemand hat. Es gibt aber ein einheitliches System. Erst kommt...
30.09.2008 10:36:00
Thread-ID: 1013287
3 Beiträge
Text aus einer Zelle in ein anderes Tabellenblatt
grigolet

Hallo,
ich erstelle gerade eine Arbeitsmappe in der auf verschiedenen Tabellenblättern die gleichen Namen erscheinen sollen (aus dem Blatt 'Verhandlungsergebnis' sollen die Personendaten der Beteiligten in ein erstelltes Vertragsformular übernommen werden). Ich habe das z.B. mit = gelöst. J...
09.10.2008 11:24:26
Thread-ID: 1015295
2 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
4
5
3
9
3
5
1
2
1
6
4
1
4
6
1
5
11
22
7
4
3
18
2
3