Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Makro - Zahl zu Text
zurück: RadioButton wieder deaktivieren weiter: Excelsheet bestimmte Userrechte vergeben Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Neuling3
Gast


Verfasst am:
01. Okt 2009, 22:24
Rufname:

Makro - Zahl zu Text - Makro - Zahl zu Text

Nach oben
       Version: Office 2007

Hallo liebe Leute!

Also ich bin schon seit bestimmt 3 Stunden auf allen möglichen Foren am lesen, um mein Problem zu lösen, leider kriege ich das nicht in den Griff.
Problem:

- Ich habe die Möglichkeit Zahlen zwischen 1 und 4 in ein Feld einzutippen.
- Zahl 1 soll zu "Versendet"
- Zahl 2 soll zu "In Arbeit"
- Zahl 3 soll zu "Bestätigt"
- Zahl 4 soll zu "Abgelehnt" umgewandelt werden

Zuzüglich soll, wenn:
- Zahl 1 eingegeben wurde das Feld "gelb"
- Zahl 2 eingegeben wurde das Feld "Orange"
- Zahl 3 eingegeben wurde das Feld "grün"
- Zahl 4 eingegeben wurde das Feld "rot" hinterlegt werden.

Es handelt sich um die Reihe ab "F8" abwärts
Ich bedanke mich schonmal im voraus.

mfg
Phelan XLPH
Fortgeschritten


Verfasst am:
01. Okt 2009, 22:36
Rufname: Phelan


AW: Makro - Zahl zu Text - AW: Makro - Zahl zu Text

Nach oben
       Version: Office 2007

hallo,

ins codefenster der Tabelle:

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim cell As Range
    If Not Intersect(Target, Range("F:F")) Is Nothing And Target.Row >= 8 Then
        For Each cell In Range("F8:F" & Cells(Rows.Count, 6).End(xlUp).Row)
            Select Case cell
                Case 1: cell = "Versendet": cell.Interior.ColorIndex = 6 'Gelb
                Case 2: cell = "In Arbeit": cell.Interior.ColorIndex = 45 'oder 46 Orange
                Case 3: cell = "Bestätigt": cell.Interior.ColorIndex = 4 'Grün
                Case 4: cell = "Abgelehnt": cell.Interior.ColorIndex = 3 'Rot
            End Select
        Next
    End If
End Sub

_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
Gast



Verfasst am:
01. Okt 2009, 22:41
Rufname:

AW: Makro - Zahl zu Text - AW: Makro - Zahl zu Text

Nach oben
       Version: Office 2007

Danke!
Aber es klappt nicht so ganz bei mir, wie auch nicht anders zu erwarten..

Ich habe meine Excel-Tabelle offen.
Ich klicke auf den Befehl "Makros anzeigen" und füge den Code dann ein.
Wenn ich dann auf "play" klicke, will Excel, dass ich nen Namen für das Makro wähle und gibt mir schon:

Sub test()

End Sub


vor.

Was mache ich falsch?
Phelan XLPH
Fortgeschritten


Verfasst am:
01. Okt 2009, 22:43
Rufname: Phelan

AW: Makro - Zahl zu Text - AW: Makro - Zahl zu Text

Nach oben
       Version: Office 2007

-Rechtsklick auf den Tabellenreiter
-Code anzeigen
-hier hineinkopieren

_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
Gast



Verfasst am:
01. Okt 2009, 22:50
Rufname:


AW: Makro - Zahl zu Text - AW: Makro - Zahl zu Text

Nach oben
       Version: Office 2007

Bestens!
Ich danke dir! Super, dass das so schnell klappt.

Bin ja mal total begeistert von Excel, also das Programm ist doch schon ziemlich mächtig!

Würde mich gerne mit dem Quellcode trotzdem auseinandersetzen, gibt es Literatur die du empfehlen kannst?

mfg
Gast



Verfasst am:
01. Okt 2009, 22:55
Rufname:

AW: Makro - Zahl zu Text - AW: Makro - Zahl zu Text

Nach oben
       Version: Office 2007

Edit: Ich habe nun testweise ein paar Felder mit Zahlen gefüttert, nun verschwindet aber im nachhinein die Hintergrundfarbe nicht, wenn da nix drin steht.

Was soll ich da tun?

Habe mal versucht Case Is >5 zu benutzen, hat auch geklappt, aber nun schmiert mein Excel immer ab..
Phelan XLPH
Fortgeschritten


Verfasst am:
01. Okt 2009, 23:11
Rufname: Phelan

AW: Makro - Zahl zu Text - AW: Makro - Zahl zu Text

Nach oben
       Version: Office 2007

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim cell As Range
    If Not Intersect(Target, Range("F:F")) Is Nothing And Target.Row >= 8 Then
        For Each cell In Intersect(Target, Range("F:F"))
            Select Case cell
                Case 1: cell = "Versendet": cell.Interior.ColorIndex = 6 'Gelb
                Case 2: cell = "In Arbeit": cell.Interior.ColorIndex = 46  'Orange
                Case 3: cell = "Bestätigt": cell.Interior.ColorIndex = 4 'Grün
                Case 4: cell = "Abgelehnt": cell.Interior.ColorIndex = 3 'Rot
                Case Else: cell.Interior.ColorIndex = xlColorIndexNone 'Keine farbe
            End Select
        Next
    End If
End Sub


das 1*1:
ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/b012.pdf

_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
Gast



Verfasst am:
01. Okt 2009, 23:18
Rufname:

AW: Makro - Zahl zu Text - AW: Makro - Zahl zu Text

Nach oben
       Version: Office 2007

Perfekt.
Danke!
Gast



Verfasst am:
03. Okt 2009, 00:31
Rufname:

AW: Makro - Zahl zu Text - AW: Makro - Zahl zu Text

Nach oben
       Version: Office 2007

Hallo nochmal!
Folgendes neues Problem:

Ich möchte nun in einer anderen Spalte wieder ein Makro einbinden.

Wenn ich "o" eingeben, soll automatisch "Online" da stehen.

Jetzt werden sicherlich einige sagen, dass Excel das automatisch vorschlägt, wenn man schon des öfteren "Online" eingegeben hat.
Ich möchte das aber verständlich haben, wo man dann so etwas im Makro-Quelltext einbindet..

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim cell As Range
    If Not Intersect(Target, Range("J:J")) Is Nothing And Target.Row >= 5 Then
        For Each cell In Intersect(Target, Range("J:J"))
            Select Case cell
                Case 1: cell = "Versendet": cell.Interior.ColorIndex = 6 'Gelb
                Case 2: cell = "In Arbeit": cell.Interior.ColorIndex = 45  'Orange
                Case 3: cell = "Bestätigt": cell.Interior.ColorIndex = 4 'Grün
                Case 4: cell = "Abgelehnt": cell.Interior.ColorIndex = 3 'Rot
                Case Else: cell.Interior.ColorIndex = xlColorIndexNone 'Keine farbe
            End Select
        Next
    End If
End Sub



Vielen Dank!
Phelan XLPH
Fortgeschritten


Verfasst am:
03. Okt 2009, 06:43
Rufname: Phelan

AW: Makro - Zahl zu Text - AW: Makro - Zahl zu Text

Nach oben
       Version: Office 2007

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim cell As Range
    If Not Intersect(Target, Range("J:J")) Is Nothing And Target.Row >= 5 Then
        For Each cell In Intersect(Target, Range("J:J"))
            Select Case cell
                Case "o", "online", "Online"
                    Application.EnableEvents = False
                    cell = "Online"
                    Application.EnableEvents = True
                    cell.Interior.ColorIndex = 6  'Gelb
                Case Else
                    cell.Interior.ColorIndex = xlColorIndexNone 'Keine farbe
            End Select
        Next
    End If
End Sub

_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
Gast



Verfasst am:
03. Okt 2009, 10:38
Rufname:

AW: Makro - Zahl zu Text - AW: Makro - Zahl zu Text

Nach oben
       Version: Office 2007

Vielen Dank.
Aber mein Problem ist ja, dass ich diese "Online" Funktion in der Spalte "I" haben möchte.
Nun funktioniert das ja zuzüglich in Salte "J".
Phelan XLPH
Fortgeschritten


Verfasst am:
03. Okt 2009, 16:22
Rufname: Phelan

AW: Makro - Zahl zu Text - AW: Makro - Zahl zu Text

Nach oben
       Version: Office 2007

Dann erstze "J" durch "I". Einfach mal testen
_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
Gast



Verfasst am:
04. Okt 2009, 20:10
Rufname:

AW: Makro - Zahl zu Text - AW: Makro - Zahl zu Text

Nach oben
       Version: Office 2007

Ja, dann Funktioniert nur das Makro für Spalte "J" oder "I".
Ich möchte aber 2 Funktionen auf 2 verschiedene Spalten-
Phelan XLPH
Fortgeschritten


Verfasst am:
04. Okt 2009, 20:16
Rufname: Phelan

AW: Makro - Zahl zu Text - AW: Makro - Zahl zu Text

Nach oben
       Version: Office 2007

Meinst du das...

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim cell As Range
    If Not Intersect(Target, Range("J:J")) Is Nothing And Target.Row >= 5 Then
        For Each cell In Intersect(Target, Range("J:J"))
            Select Case cell
                Case 1: cell = "Versendet": cell.Interior.ColorIndex = 6 'Gelb
                Case 2: cell = "In Arbeit": cell.Interior.ColorIndex = 45  'Orange
                Case 3: cell = "Bestätigt": cell.Interior.ColorIndex = 4 'Grün
                Case 4: cell = "Abgelehnt": cell.Interior.ColorIndex = 3 'Rot
                Case Else: cell.Interior.ColorIndex = xlColorIndexNone 'Keine farbe
            End Select
        Next
    End If
    If Not Intersect(Target, Range("I:I")) Is Nothing And Target.Row >= 5 Then
        For Each cell In Intersect(Target, Range("I:I"))
            Select Case cell
                Case "o", "online", "Online"
                    Application.EnableEvents = False
                    cell = "Online"
                    Application.EnableEvents = True
                    cell.Interior.ColorIndex = 8  'Türkis
                Case Else
                    cell.Interior.ColorIndex = xlColorIndexNone 'Keine farbe
            End Select
        Next
    End If
End Sub

_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
Gast



Verfasst am:
04. Okt 2009, 20:37
Rufname:


AW: Makro - Zahl zu Text - AW: Makro - Zahl zu Text

Nach oben
       Version: Office 2007

Nice!

Siehst du, denn ich habe unnötigerweise
Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim cell As Range

doppelt eingetippt.

Danke.
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: SUMME wenn in der Spalte Text und Zahl steht ??? 8 Inge 1750 30. Mai 2005, 11:40
Inge SUMME wenn in der Spalte Text und Zahl steht ???
Keine neuen Beiträge Excel Formeln: automatisches Speichern des Tabellenblatts mit Makro 6 Frank vhet 841 11. Mai 2005, 13:14
Frank vhet automatisches Speichern des Tabellenblatts mit Makro
Keine neuen Beiträge Excel Formeln: Makro per Button ausführen lassen und if then problem 5 Darwin 3876 09. Mai 2005, 14:57
Darwin Makro per Button ausführen lassen und if then problem
Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten. Excel Formeln: einfügen prozentzeichen hinter zahl 1 traum1954 5670 19. Feb 2005, 01:11
ae einfügen prozentzeichen hinter zahl
Keine neuen Beiträge Excel Formeln: zahl unsichtbar 1 traum1954 815 09. Feb 2005, 23:39
Scelina zahl unsichtbar
Keine neuen Beiträge Excel Formeln: unterscheidung zwischen text und zahlen in einer Zelle 5 hmmmmm??? 1166 02. Feb 2005, 12:13
hmmmmm??? unterscheidung zwischen text und zahlen in einer Zelle
Keine neuen Beiträge Excel Formeln: Wenn Zahl stimmt soll Excel Ja schreiben 2 Pinguin1977 822 30. Jan 2005, 00:57
Gast Wenn Zahl stimmt soll Excel Ja schreiben
Keine neuen Beiträge Excel Formeln: text zählen 4 roli 1885 28. Jan 2005, 12:34
Kuwe text zählen
Keine neuen Beiträge Excel Formeln: fortlaufende zahl in spalte - funktion? 2 lifius 1741 10. Dez 2004, 19:45
lifius fortlaufende zahl in spalte - funktion?
Keine neuen Beiträge Excel Formeln: Text in andere Tabelle übertragen 2 freddy-krueger 3737 02. Dez 2004, 11:16
freddy-krueger Text in andere Tabelle übertragen
Keine neuen Beiträge Excel Formeln: 3. Wurzel aus einer Zahl 2 Tim Manderbach 28687 07. Nov 2004, 17:33
Arnim 3. Wurzel aus einer Zahl
Keine neuen Beiträge Excel Formeln: Zweit größte Zahl über Formel finden 2 Daniel 222 2472 02. Nov 2004, 18:34
Daniel 222 Zweit größte Zahl über Formel finden
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Macromedia Dreamweaver