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

Zwei daraufvolgende solcher zeiche "Chr(10)" nur

Forumthread: Zwei daraufvolgende solcher zeiche "Chr(10)" nur

Zwei daraufvolgende solcher zeiche "Chr(10)" nur
07.11.2004 04:37:27
Bachner
Hallo
Zwei daraufvolgende solcher zeiche "Chr(10)" in einer Vareablen durch eines erstzen.
Ich hoffe das ich es irgend wie verstentlich erklähren konte.
Vielen dank Gerhard
Anzeige
AW: Zwei daraufvolgende solcher zeiche "Chr(10)" nur
Jens_Pu
Hallo Gerhard,
meinst du das so:
Dim var As String
var = Chr(10) & Chr(10)
Gruß Jens
AW: Zwei daraufvolgende solcher zeiche "Chr(10)" nur
07.11.2004 16:01:21
Bachner
Hallo
Das da ist der inhalt eines Komentarrs den ich in eine Vareable lade und er besitzt zwei aueinnander folgende solcher "Chr(10)" zeichen ich würde gerne eins löschen damit ich keine lehre zeile kriege?
wie schafe ich das?
Vielen dank Gerhard
GerhardB: Einsatz -16€
Hamburger SV - FC Schalke 04
3-Weg - Tipp: FC Schalke 04
07.11.2004 02:19:30
Anzeige
AW: Zwei darauffolgende Zeichen "Chr(10)"
WernerB.
Hallo Gerhard,
wie gefällt Dir das?

Sub Gerhard()
Dim sK As String
sK = ActiveCell.Comment.Text
If InStr(sK, Chr(10) & Chr(10)) > 0 Then
sK = WorksheetFunction.Substitute(sK, Chr(10) & Chr(10), Chr(10))
End If
End Sub

Viel Erfolg wünscht
WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !
Anzeige
AW: Zwei darauffolgende Zeichen "Chr(10)"
08.11.2004 17:40:08
Bachner
Hallo
Also das was sie mihr gegeben haben funktioniert.
Leider ist es so das Das selbe zeichen im kommentar, eins sichtbar ist am ende der zeile und eins ist dafür zustendig das es den zeilenumbruch gibt.
Mit ihrem code funktioniert es wen tatsächlich eine lehre zeile gibt also in meinem fal drei solcher zeichen Eins ist aber immer sichtbar am ende der zeile.
Wen sie zur probe dahn oberen CODE markieren copieren und in einem Kommentar einfügen dan siet man einzeichen und der CODE findet nichts?
Vielen dank Gerhard
Anzeige
AW: Zwei darauffolgende Zeichen "Chr(10)"
ypsilon
hi Gerhard,
der code von Werner funktioniert wunderbar
er hat nur eine klitzekleine zeile vergessen

Sub Gerhard()
Dim sK As String
sK = ActiveCell.Comment.Text
If InStr(sK, Chr(10) & Chr(10)) > 0 Then
sK = WorksheetFunction.Substitute(sK, Chr(10) & Chr(10), Chr(10))
ActiveCell.Comment.Text Text:=sK
End If
End Sub

cu Micha
Anzeige
AW: Zwei darauffolgende Zeichen "Chr(10)"
08.11.2004 21:39:32
Bachner
Ich weis das er funktioniert die eine zeile hate ich mihr selber geschrieben.
Es ist nur so das ich das nicht erklähren kann.
Ein zeichen ist aber immer sichtbar am ende der zeile ist es ein anderes zeichen?
Schaut genau so aus.
Tschau
AW: Zwei darauffolgende Zeichen "Chr(10)"
yps
dann ist es eben chr(13)
aber ohne beispieldatei stochern wir hier im nebel
also lad mal was hoch
cu Micha
Anzeige
AW: Zwei darauffolgende Zeichen "Chr(10)"
09.11.2004 06:46:46
Bachner
Es tut mir leid das ich im moment keinen feler mehr habe da ich sie mit der hand alles korigiert habe aber sobald ich einen habe werde ich mich wieder rühren.
Auf jeden fal danke ich euch allen aus ganzem Herzen. Gerhard
AW: Zwei darauffolgende Zeichen "Chr(10)"
09.11.2004 14:19:12
Bachner
Hallo
ich hbe wieder diese problem.
In meinem beitrag wolte ich das zeichen das in der zeien zeile am ende sichar ist löschen. Leider ist es so das es mit den oberen vorschlägen nicht hingehauen hat.
Vielen dank Gerhard
Anzeige
AW: Zwei darauffolgende Zeichen "Chr(10)"
09.11.2004 14:22:07
Bachner
Hier ein bild um das es überhaupt geht.
Userbild
AW: Zwei darauffolgende Zeichen "Chr(10)"
WernerB.
Hallo Gerhard,
dieses Zeichen ist vermutlich irgendeines von vielen Sonderzeichen, dessen Codenummer nicht aus Deinem Bildchen ermittelt werden kann.
Wie schon yps/Micha ("ohne Beispieldatei stochern wir hier im Nebel") geschrieben hat, solltest Du dazu hier eine Beispieldatei (ein Blatt mit einem solchen Kommentar genügt schon) hochladen, damit man sich das genauer ansehen kann.
Es stellt sich auch die Frage, wie diese Zeichen in die Kommentare hinein kommen. Diese Ursache zu ermitteln und abzustellen ist sicher sinnvoller, als im Nachhinein den Kommentartext zu säubern.
Gruß
WernerB.
Anzeige
AW: Zwei darauffolgende Zeichen "Chr(10)"
WernerB.
Hallo Gerhard,
markiere die Zelle "M16" und starte dann das nachstehende Makro; dann verschwinden die Kästchen und die Leerzeile.

Sub Gerhard()
Dim sK As String
Dim b As Byte
sK = ActiveCell.Comment.Text
If InStr(sK, vbCr) > 0 Then
sK = WorksheetFunction.Substitute(sK, vbCr, vbLf)
End If
For b = 1 To 2
If InStr(sK, vbLf & vbLf) > 0 Then
sK = WorksheetFunction.Substitute(sK, vbLf & vbLf, vbLf)
End If
Next b
ActiveCell.Comment.Text Text:=sK
End Sub

Gruß
WernerB.
Anzeige
AW: Zwei darauffolgende Zeichen "Chr(10)"
10.11.2004 15:51:57
Bachner
Hallo Werner
ales funktioniert 1A .
Vielen dank Gerhard
;

Forumthreads zu verwandten Themen

Worksheet Change - Nur bei Änderung durch Userinte
Ina

Hallo Forum,
wie kann ich das Worksheet_Change-Ereignis so beschränken, dass es nur beim Eingriff über das User-Interface ausgelöst wird; Sheet-Änderungen über den Code sollen nicht zum Ereignis führen.
Kann mir jemand weiterhelfen?
Vielen Dank schonmal!
Gruß
Ina
19.08.2008 09:10:00
Thread-ID: 1002791
5 Beiträge
Anzeige
1:1-Kopieren ohne dass Formeln "angepasst" werden
Wolfango

Hallo Experten!
Eine Spalte enthält lauter Formeln (alles relative Bezüge). Wenn ich diese komplette Spalte (markiert über Klick auf Spaltenkopf) in eine neue, unbenutzte Spalte kopiere werden (aufgrund der relativen Bezüge) ja stets alle Formeln automatisch angepasst (egal ob über das Menü...
17.09.2008 15:45:18
Thread-ID: 1010435
3 Beiträge
SVerweis - Wert suchen à la "Offset 1,3"
Bernd

Hallo Freaks,
ich möchte einen Wert per Sverweis ermitteln, der " 3 Spalten rechts + 1 Zeile runter" steht.
Siehe bitte einfaches Beispiel anbei.
https://www.herber.de/bbs/user/55520.xls
Vorab besten Dank für Eure Hilfe und Mühen.
Grüße
Bernd
19.09.2008 14:21:11
Thread-ID: 1011046
7 Beiträge
Wert nach Änderung einer Zelle schreiben
Markus

Hallo Leute,
ich werde Excel nie wirklich verstehen. Habe wieder eine Frage: Bei Veränderung des Wertes einer Zelle möchte ich einen Wert in eine andere Zelle schreiben (klingt einfach - gelingt mir nicht!):
Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo ErrorHandle...
01.10.2008 18:26:00
Thread-ID: 1013729
31 Beiträge
Hyperlink soll je nach KW auf andere Datei verw.
Alex

Hallo,
gleich einmal vorweg, ich bin neu im Forum und hoffe, dass ihr mir bei meinem kleinen Hyperlink- Problem helfen könnt.
Folgende Aufgabe sollte gelöst werden.
Ich möchte einen Hyperlink einrichten, der automatisch je nach Kalenderwoche auf das entsprechende Bestellformular ve...
11.10.2008 12:37:00
Thread-ID: 1015732
3 Beiträge
Anzeige
LZF 1004 Anwendungs- oder objektdefinierter Fehler
Himmelsbach

Hallo zusammen,
Ich habe ein kleines Problem beim Einfügen eines Kommentars in ein Zelle.
Der Code lautet:
Sub vergleichen () dim icolmax as integer dim irowmax as integer dim icol as integer dim irow as integer dim kommentar$ icolmax = 16 irowmax = thisworkbook.worksheets("IASEK...
20.10.2008 20:20:00
Thread-ID: 1017794
6 Beiträge
Anzeige
1.Upload - 2. nach Download -> Fehler #NV
Matthias

Hallo Experten
(Level bitte nicht ganz so ernst nehmen)
Habe hier eine Datei hochgeladen.
(hab mir echt viel Zeit genommen und Mühe gegeben für meinen Namensvetter eine Lösung anzubieten)
https://www.herber.de/forum/archiv/1020to1024/t1020743.htm#1020754
Als ich nun prüfen...
31.10.2008 10:18:15
Thread-ID: 1020805
7 Beiträge
SowDataForm, Fehler wenn Zeile 1 leer
Reinhard

Hallo Wissende,
der Fehler 1004, "ShowDataForm-Methode des Worksheet-Objekts konnte zu nicht ausgeführt werden" kommt nicht wenn A1 die erste Zelle der Tabelle ist. Bei A9 als erste Zelle kommt der Fehler.
Was kann ich dagegen tun?
Microsoft empfiehlt auf http://support.microsoft....
06.11.2008 11:19:00
Thread-ID: 1022202
3 Beiträge
Anzeige
UserForm2 Abfrage in UserForm1 auswerten
angeldust

Hallo,
habe eine UserForm1 und eine UserForm2 , die UF2 fragt den Benutzer ab : Ja / NEIN wenn man einen bestimmten Button in der UF1 betätigt,
so nun will cih aber das Ergebnis JA / NEIN in der UF1 auswerden und dementsprächend Funktionen zuweisen, wie ist da die Syntax bitte?
als...
17.11.2008 11:26:11
Thread-ID: 1025130
3 Beiträge
100 Dateien nach Wert durchs. und in neue Datei...
Jessi

Hallo zusammen,
ich habe ein Problem, bzw. einen riesen Arbeitsaufwand vor mir, sofern ich das nicht per VBA gelöst bekomme.
Ich habe ca. 100 Dateien (Excel) die logisch nummeriert sind als Name:
Bsp:
1.xlsm
2.xlsm
(...)
99.xlsm
In jeder dieser Tabelle steht eine...
17.11.2008 11:31:00
Thread-ID: 1025138
4 Beiträge
VBA Code: wenn B1 <> blank, dann I in A1 schreiben
maxx_1985

Hi mit'nander
Braeuchte einen kleine Code dafuer:
wenn B1 blank, dann schreibe ein I in A1.
kann mir vielleicht jemand helfen? :-)
vielen vielen dank
denis
18.11.2008 16:27:16
Thread-ID: 1025694
5 Beiträge
Auf 17 Checkboxes ausweiten
Wolfgang

Hallo,
der untenstehende Auszug aus einem Code fragt den Status der Checkbox1 auf einem UF ab, gibt es eine elegante Möglichkeit gleichzeitig bei Checkbox1:17 den Status abzufragen und bei False die MsgBox erscheinen zu lassen? - Danke schon jetzt für die Rückmeldungen.
Gruß - Wolfgang...
22.11.2008 14:32:01
Thread-ID: 1026950
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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