Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1044to1048
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1044to1048
1044to1048
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zelleninhalt übertragen

Zelleninhalt übertragen
06.02.2009 08:39:00
Jochen
Hallo Forum
Brauche mal wieder euere Hilfe
Habe mich durch meine Vba-Bücher gelesen bekomme es aber einfach nicht hin.
Ich möchte das wenn ich in ein Tabellenblatt in der Spalte D von Reihe 14 bis 52 das Wort Urlaub eintippe
sich das Wort Urlaub rot färbt, der Wert der in der Spalte G steht gelöcht wird und der Wert von Spalte I in die Spalte H kopiert wird.
Wäre toll wenn mir da einer helfen könnte
Gruß Jochen

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zelleninhalt übertragen
06.02.2009 08:49:00
Tino
Hallo,
geht es so?
Kommt als Code ins entsprechende Tabellenblatt.
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("D14:D52")) Is Nothing Then
 Application.EnableEvents = False
    
    If Target = "Urlaub" Then
     Target.Font.ColorIndex = 3
     Cells(Target.Row, 7).Value = ""
     Cells(Target.Row, 8).Value = Cells(Target.Row, 9).Value
    Else
     Target.Font.ColorIndex = xlNone
    End If
 
 Application.EnableEvents = True
End If

End Sub


Gruß Tino

Anzeige
AW: Zelleninhalt übertragen
06.02.2009 09:16:00
Jochen
Hallo Tino
Danke für deine Antwort geht genauso wie ich wollte.
Habe aber jetzt das Problem das ich schon folgendes im Code stehen habe:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Stunden As Long
Dim Minuten As Long
If Intersect(Target, Range("E14:F54")) Is Nothing Then Exit Sub
If Target.Cells.Count


Beides alleine läuft, aber wie muss ich meinen und deinen Code mit einander verbinden
damit beides läuft.
Meine Vba Kenntnisse sind noch nicht so gut.
Kannst du mir weiter helfen?
Gruß Jochen

Anzeige
AW: Zelleninhalt übertragen
06.02.2009 09:47:03
Luschi
Hallo Jochen,
mach es so: 

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim i As Integer, s As String
s = Target.Text
i = InStr(1, s, " ", vbTextCompare)
'Ausschalten der Ereignis-Routinen
Application.EnableEvents = False
If i > 0 Then
Target.Value = Left(s, i - 1)
Else
Target.Value = s & " X"
End If
'Enter-Taste damit die Eingabe gleich abgeschlossen wird
SendKeys Chr(13), True
Application.EnableEvents = True
End Sub

Durch das vorübergehende Abschalten der Ereignis-Routinen wird das Ereignis
Worksheet_Change(...) nicht gestarten beim Doppelklick auf die Zelle.
Außerdem kann man mit einem witeren Doppelkick das 'X' wieder entfernen.
Gruß von Luschi
aus klein-Paris

Anzeige
vielleicht so
06.02.2009 10:12:00
Tino
Hallo,
ich würde dies so machen, damit dass Eventmakro übersichtlich bleibt.
Ich würde diese in einzelne Makros in einem Modul einbauen und diese entsprechend ausführen.
kommt als Code in Tabelle 
Option Explicit 
 
Private Sub Worksheet_Change(ByVal Target As Range) 
Application.EnableEvents = False 
  
 If Not Intersect(Target, Range("E14:F54")) Is Nothing Then 
  Call DeinMakro(Target) 
 ElseIf Not Intersect(Target, Range("D14:D52")) Is Nothing Then 
  Call MeinMakro(Target) 
 End If 
 
Application.EnableEvents = True 
End Sub

kommt in ein Modul 

Option Explicit 
 
Sub DeinMakro(rZelle As Range) 
 Dim Stunden As Long 
 Dim Minuten As Long 
  
   If Not IsNumeric(rZelle.Value) Then Exit Sub 
   Stunden = WorksheetFunction.RoundDown(rZelle.Value / 100, 0) 
   Minuten = rZelle.Value - Stunden * 100 
   rZelle.Value = TimeSerial(Stunden, Minuten, 0) 
End Sub 
 
Sub MeinMakro(rZelle As Range) 
    If rZelle = "Urlaub" Then 
     rZelle.Font.ColorIndex = 3 
     Cells(rZelle.Row, 7).Value = "" 
     Cells(rZelle.Row, 8).Value = Cells(rZelle.Row, 9).Value 
    Else 
     rZelle.Font.ColorIndex = xlNone 
    End If 
End Sub


@Luschi, bist Du im falschen Beitrag gelandet?
Gruß Tino

Anzeige
AW: vielleicht so
06.02.2009 10:48:00
Jochen
Danke Tino
So geht
Danke für deine Hilfe
Gruß Jochen

299 Forumthreads zu ähnlichen Themen

Zellen prüfen / Ausgabe wenn Bedingung erfüllt
Kay

Hallo,
Ich brauche dringend Eure Hilfe. Unter https://www.herber.de/bbs/user/54533.xls findet Ihr eine Mappe, in welcher in Spalte A
1 für "Kaufen"
0 für " "
-1 für "Verkaufen"
steht. IN SPALTE B SIND BISHER NUR MANUELL ERSTELLTE BEISPIELEINTRÄGE ENTHALTEN, DAMIT ERSICHTLIC...
12.08.2008 09:51:36
Thread-ID: 1001078
3 Beiträge
Anzeige
Hilfe ! Zellen einfärben mit bedingung
sockel939

Hallo Leute,
wie schaffe ich es per makro ( ! )
alles was links neben zelle m2 bis m1000 steht einzufärben.
Also wenn in M2 z.B. a steht, alle zellen von L2 bis A2 = Grün
M3 z.B. Hallo = L3 bis A3 = Rot usw.
Weis nicht in welcher reihenfolge ich die makros aufnehmen soll :-...
15.08.2008 15:09:00
Thread-ID: 1002195
5 Beiträge
An Zellengröße anpassen in Verbundenen Zellen
Kai

Hallo
Ich habe folgendes Problem.
Ich habe die Zellen D12-G23 verbunden.
Darin soll ein längerer Text stehen, welcher mit sverweis geholt wird.
Wenn ich die Zelle mit Zeilenumbruch formatiere, dann ist der Text zu lang (unten fehlt was).
Wenn ich den Text mit "An Zellengröße...
18.08.2008 17:09:00
Thread-ID: 1002694
3 Beiträge
Anzeige
Auswählen einer Zelle sofort mit X kennzeichnen.
Richard

Hallo,
ich habe folgenden Code geschrieben: Wenn ich Zelle A1 auswähle, dann soll er dort ein X reinsetzten, steht da schon ein X dann soll er es wieder rausnehmen.
Jetzt kommt 'ne ganz blöde Frage: Wie definiere ich einen ganzen Bereich indem er das machen soll? Zum Beispiel A1:B100. S...
22.08.2008 15:12:33
Thread-ID: 1003911
3 Beiträge
Bei Eintrag in Zelle Eintrag i. anderer Zelle prüf
Josef

Guten Morgen!
Wenn ich z. B. in der Spalte K ein Datum eintrage, soll in der Spalte N in der gleichen Zeile folgendes geprüft werden:
Ist ein Wert in der Spalte N vorhanden dann soll dieser gelöscht und die Zelle rot gefärbt werden.
Wenn ich jedoch ein Datum in der Spalte K lösche,...
26.08.2008 06:17:08
Thread-ID: 1004645
3 Beiträge
Hintergrundfärbung in UserForm Textbox in Zelle...
Josef

Guten Morgen!
wie ich Daten über Userform TextBoxen in die Zellen zurückschreibe, dafür habe ich bereits eine Lösung.
Is es jedoch möglich einen gefärbten Hintergrund einer TextBox in die dafür vorgesehene Zelle zu übertragen?
Wenn ja, wie würde dann bitte eine VBA Lösung lauten?
28.08.2008 06:57:47
Thread-ID: 1005257
10 Beiträge
Matrix-formel via VB-Skript in die Zelle einfügen
Wladimir

Hallo zusammen,
ich soll via VB-Skript eine
Excel-Matrix-formel in die Zelle der
geschlossenen Datei einfügen.
Ich habe die Formel entsprechend
angepasst und versuchte sie mit
FormulaArray in die Zelle einzufügen,
aber erfolglos. Es kommt die Meldung:
"Die For...
01.09.2008 12:08:24
Thread-ID: 1006391
14 Beiträge
Anzahl Zelleinträge zählen
Markus

Hallo Excel-Profis,
Excel-Sheet mit folgender Struktur:
383729DI MS TIC
383729DI MS TIC
383729DI DAD TWC
383729DI MS TIC
383729DI MS TIC
383729DI DAD TWC
383729DI MS TIC
383729DI XIC
383729DI MS TIC
383729DI DAD TWC
383730DI MS TIC
383730DI XI...
01.09.2008 13:54:00
Thread-ID: 1006432
4 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
4
4
2
3
2
2
9
13
3
4
11
3
4
4
1
7
2
2
2
10
2
7
2
6