Thema Datum  Von Nutzer Rating
Antwort
11.08.2008 15:49:18 Desmond64
NotSolved
Blau Aw:VBA-Programmierung unter Excel
 13.08.2008 11:35:54 Holger
NotSolved
13.08.2008 19:15:37 Desmond64
NotSolved

Ansicht des Beitrags:
Von:
Holger		 Datum:
13.08.2008 11:35:54		 Views:
807		 Rating:
     
Antwort:
  Ja
Thema:
Aw:VBA-Programmierung unter Excel
Hallo Desmond64,
versuche

Sub Zahl_ersetzen()
suche = InputBox("Mit / zu ersetzende Personennummer")
a = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
b = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column
For i = 1 To a
For j = 1 To b
If InStr(Cells(i, j), suche + Chr(10)) <> 0 Then
c = InStr(Cells(i, j), Chr(10))
If Left(Cells(i, j), c - 1) = suche Then
Cells(i, j) = "/" + Mid(Cells(i, j), c)
End If
End If
If InStr(Cells(i, j), Chr(10) + suche) <> 0 Then
c = InStr(Cells(i, j), Chr(10))
If Mid(Cells(i, j), c + 1) = suche Then
Cells(i, j) = Left(Cells(i, j), c) + "/"
End If
End If
Next j
Next i
End Sub

Gruß
Holger


Desmond64 schrieb am 11.08.2008 15:49:18:

Hallo zusammen,

ich erstelle derzeit in Excel eine Art Schichtplan.

In jeder Zelle kann entweder eine Zahl oder 2 Zahlen stehen. Bei 2 Zahlen sind diese durch alt+ return getrennt.
Beispiel: 2 (alt+return)120

Nun zu meinem Problem.

Sollte nun die Person mit der Nummer 2 nicht arbeiten können, soll per Knopfdruck eine Schleife durchlaufen werden, welche diese Person aus dem Plan entnimmt und stattdessen einen Slash setzt.

Die Zelle soll dann folgenden Inhalt haben:
/(alt+return)120

bzw.

120/ (alt+return)

wenn die Person erst nach dem Alt + Return erscheint.

Problem verstanden??



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:



  • 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
11.08.2008 15:49:18 Desmond64
NotSolved
Blau Aw:VBA-Programmierung unter Excel
 13.08.2008 11:35:54 Holger
NotSolved
13.08.2008 19:15:37 Desmond64
NotSolved