Thema Datum  Von Nutzer Rating
Antwort
Rot Text auslesen und in Zelle (mit Text) einfügen
 08.02.2008 08:15:09 kleister
NotSolved
08.02.2008 17:35:45 Holger
NotSolved
11.02.2008 09:38:30 kleister
NotSolved
11.02.2008 11:00:39 Holger
NotSolved
11.02.2008 12:03:49 kleister
NotSolved
11.02.2008 12:10:14 kleister
NotSolved
11.02.2008 13:02:44 Holger
NotSolved
11.02.2008 13:54:46 kleister
NotSolved
11.02.2008 14:13:11 kleister
NotSolved
11.02.2008 15:03:26 Holger
NotSolved
12.02.2008 06:49:42 kleister
NotSolved
12.02.2008 09:50:14 Holger
NotSolved

Ansicht des Beitrags:
Von:
kleister		 Datum:
08.02.2008 08:15:09		 Views:
2390		 Rating:
     
Antwort:
  Ja
Thema:
Text auslesen und in Zelle (mit Text) einfügen
Hallo zusammen!

Ich habe ein Problem mit einem VBA-Makro und hoffe jemand kann mir da weiterhelfen. Kleine Anmerkung im voraus, ich arbeite mit Office03.

Als Grundlage habe ich eine Excel-Tabelle mit mehreren Spalten. Nun soll es aus einer Spalte herauslesen, ob dort ein Dr. Prof. oder Professor eingetragen ist. Wenn ja, dann soll in eine andere Spalte zwischen Geehrter Herr und dem Nachnamen entweder Dr. oder Professor (für Prof. und Professor) eingetragen werden. Hoffe das ist verständlich, ansonsten hier ein Beispiel:

Spalte 1 (vor Makro) Spalte2
Geehrter Herr Huber Dr. Prof. dent.

Spalte 1 (nach Makro)
Geehrter Dr. Professor Huber

Habe einen Code geschrieben, welcher aber noch nicht ganz funktioniert:

Sub anrede()

Dim i As Double
Dim H As String
Dim F As String

H = "Herr"
F = "Frau"

i = 2

Do Until EndofDocument = True
Columns("i:i").Select
If Cells("Z:i").Value = "Dr." Then
Cells("X:i").Select
Select Case Cells("X:i").Value
Case "Herr"
Selection.InsertAfter(Herr) = " Dr. "
Case "Frau"
Selection.InsertAfter(Frau) = " Dr. "
End Select
End If
i = i + 1
Loop

End Sub

Kann mir vielleicht jemand einen Tip geben?
Danke!

Gruss
kleister

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Text auslesen und in Zelle (mit Text) einfügen
 08.02.2008 08:15:09 kleister
NotSolved
08.02.2008 17:35:45 Holger
NotSolved
11.02.2008 09:38:30 kleister
NotSolved
11.02.2008 11:00:39 Holger
NotSolved
11.02.2008 12:03:49 kleister
NotSolved
11.02.2008 12:10:14 kleister
NotSolved
11.02.2008 13:02:44 Holger
NotSolved
11.02.2008 13:54:46 kleister
NotSolved
11.02.2008 14:13:11 kleister
NotSolved
11.02.2008 15:03:26 Holger
NotSolved
12.02.2008 06:49:42 kleister
NotSolved
12.02.2008 09:50:14 Holger
NotSolved