|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
 Text auslesen und in Zelle (mit Text) einfügen |
08.02.2008 08:15:09 |
kleister |
|
|
|
08.02.2008 17:35:45 |
Holger |
|
|
|
11.02.2008 09:38:30 |
kleister |
|
|
|
11.02.2008 11:00:39 |
Holger |
|
|
|
11.02.2008 12:03:49 |
kleister |
|
|
|
11.02.2008 12:10:14 |
kleister |
|
|
|
11.02.2008 13:02:44 |
Holger |
|
|
|
11.02.2008 13:54:46 |
kleister |
|
|
|
11.02.2008 14:13:11 |
kleister |
|
|
|
11.02.2008 15:03:26 |
Holger |
|
|
|
12.02.2008 06:49:42 |
kleister |
|
|
|
12.02.2008 09:50:14 |
Holger |
|
|
Von:
kleister |
Datum:
08.02.2008 08:15:09 |
Views:
2141 |
Rating:
|
Antwort:
|
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 |
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
Text auslesen und in Zelle (mit Text) einfügen |
08.02.2008 08:15:09 |
kleister |
|
|
|
08.02.2008 17:35:45 |
Holger |
|
|
|
11.02.2008 09:38:30 |
kleister |
|
|
|
11.02.2008 11:00:39 |
Holger |
|
|
|
11.02.2008 12:03:49 |
kleister |
|
|
|
11.02.2008 12:10:14 |
kleister |
|
|
|
11.02.2008 13:02:44 |
Holger |
|
|
|
11.02.2008 13:54:46 |
kleister |
|
|
|
11.02.2008 14:13:11 |
kleister |
|
|
|
11.02.2008 15:03:26 |
Holger |
|
|
|
12.02.2008 06:49:42 |
kleister |
|
|
|
12.02.2008 09:50:14 |
Holger |
|
|