Datum

Titel

15.04.2024 23:32:21

Darstellung im IMAGE sehr schlecht

15.04.2024 21:08:34

PDF mit Makro erstellen mehrere Sheets

15.04.2024 18:38:39

Arbeitszeiten Vorlage ergänzen

15.04.2024 17:34:30

Fehlende Zeilen automatisch nach Zeiten ergänzen

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

232to236

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

Inhalt einer Zelle abschneiden

Forumthread: Inhalt einer Zelle abschneiden
4 Beiträge zu diesem Forumthread
Anzeige
314 Threads zu ähnlichen Themen
Top 100 Forumthreads

15.03.2003 17:20:23

Chrissi

ich will mir ein makro zum Auslesen von Daten schreiben. Dabei habe ich folgendes Problem:
In meiner Zieltabelle stehen die Bezeichnungen denen die Daten zugeordnet werden sollen. z.B. Stromanschluß Haus 1
In der Quelltabelle stehen die Begriffe aber sortiert und zwar so:
Haus 1
Stromanschluß
Wasseranschluß
usw.
Haus 2
Stromanschluß
usw.

Wie kann ich es erreichen, dass bei meinem Vergleich einmal nur der Textteil hinter dem ersten Leerzeichen und einmal der vor dem Leerzeichen verwendet wird??? Ich kann in den Tabellen leider keine neuen Namen oder Bezeichnungen zuweisen.

Danke
Chrissi

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: Inhalt einer Zelle abschneiden

15.03.2003 17:35:10

Bernd Held
Re: Inhalt einer Zelle abschneiden

15.03.2003 17:53:43

heinz
Re: Inhalt einer Zelle abschneiden

15.03.2003 18:07:44

heinz
Re: Inhalt einer Zelle abschneiden

17.03.2003 14:46:34

chrissi

Re: Inhalt einer Zelle abschneiden

15.03.2003 17:35:10

Bernd Held

Hallo Chrissi,

über die Funktion Instr kannst Du die Position des Leerzeichens ermitteln.
sowas in der Art sollte funktionieren:

Sub test()
MsgBox Mid(ActiveCell.Value, InStr(ActiveCell.Value, " ") + 1, _
Len(ActiveCell.Value) - InStr(ActiveCell.Value, " "))
End Sub

Viele Grüße
Bernd
MVP für Microsoft Excel
Excel-Tipps, VBA in 21 Tagen mit Leseprobe(PDF) unter: http://held-office.de

Re: Inhalt einer Zelle abschneiden

15.03.2003 17:53:43

heinz

richtig formuliert?

ZIELdatei = Stromanschluß Haus 1

QUELLdatei =
Haus 1
Stromanschluß
Wasseranschluß
usw.

deine frage bildet zur definition eine kontradiktion, oder?

Re: Inhalt einer Zelle abschneiden

15.03.2003 18:07:44

heinz

egal,
wenn folgendes wahr sein soll:

in blatt 1 zelle a1 stünde "wasser haus 1"
in blatt 2 zelle a1 stünde "haus 1"

sheets(1).cells(1,1) = sheets(1).cells(1,1)

...also, wie gesagt, wenn das wahr sein soll dann folgendermaßen:

Sub zeichen_aufteilen()
If InStr(1, Sheets(1).Cells(1, 1).Text, Sheets(2).Cells(1, 1).Text) > 0 Then
MsgBox " passt"
Else: MsgBox "passt nicht"
End If

Re: Inhalt einer Zelle abschneiden

17.03.2003 14:46:34

chrissi

Hallo heinz

Deine Abfrage liefert mir nur ein wahr wenn das erste Wort übereinstimmt, aber es hat mir trotzdem weitergeholfen. Da ich jetze die ersten worte (Wasser, Strom usw.) super gut abfragen kann. Für die identifizierung des Hauses nehme ich die Right-Funktion, da die Zeichenlänge des Hauses bekannt ist und zum Glück auch nicht mehr wie 10 Häuser da sind. ich lasse also von hinten gesehen nach 6 Zeichen Abschneiden und bekomme Haus 1. Damit habe ich alle Kriterien um meine Vergleiche zu starten.

Danke