Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Wenn in Zeile "X" gefunden wird dann Wert kopieren
zurück: *T*Extrahieren von Daten und diese auf Tabelle 2 einfügen weiter: Abschnittswechsel mit wechselnen Zeitformaten Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Janosch244
Gast


Verfasst am:
28. Apr 2014, 21:08
Rufname:

Wenn in Zeile "X" gefunden wird dann Wert kopieren - Wenn in Zeile "X" gefunden wird dann Wert kopieren

Nach oben
       Version: Office 2007

Hallo liebe Leute,

Habe eine kurze Frage zu meiner kleinen Excel Session.



Ich möchte das wenn jemand in B9 oder C9 oder D9 ein "X" einträgt,
sich der Wert 5 aus VV (G9) automatisch in XX (F9) überträgt und sich eigenständig in G9 löscht.

Gibt es sowas?


lieben Gruß
Jan
Gast



Verfasst am:
28. Apr 2014, 22:17
Rufname:

AW: Wenn in Zeile "X" gefunden wird dann Wert kopi - AW: Wenn in Zeile "X" gefunden wird dann Wert kopi

Nach oben
       Version: Office 2007

Hallo Jan,

Möglich per Makro im Codebereich der Tabelle1.

Rechtsklick auf den Tabellenreiter Tabelle1 und Code anzeigen wählen.
In den Codebereich folgenden Makro- Code einfügen.

Wird in der Spalte B, C, oder D, ein Kleines oder Großes "X" eingetragen, wird der Wert der Spalte G der gleichen Zeile, in die Spalte F eingetragen und der Wert in der Spalte G gelöscht.
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lngZei As Long

   If Target.Count > 1 Then Exit Sub
   
   Application.EnableEvents = False

   lngZei = Target.Row
   If Not Intersect(Target, Range("B:D")) Is Nothing Then
      If IsEmpty(Target) = False And UCase(Target.Value) = "X" _
         Then Cells(lngZei, 6) = Cells(lngZei, 7).Value _
            : Cells(lngZei, 7) = ""
   End If

   Application.EnableEvents = True
   
End Sub
Janosch244
Gast


Verfasst am:
28. Apr 2014, 22:27
Rufname:

AW: Wenn in Zeile "X" gefunden wird dann Wert kopi - AW: Wenn in Zeile "X" gefunden wird dann Wert kopi

Nach oben
       Version: Office 2007

Hi!
Danke für deine Antwort.
Leider habe ich das Problem damit nicht gelöst.

Ich habe die Tabelle eben in der Zwischenzeit weitergemacht und komme mit deinem Makro nicht so richtig klar.

Ich füge wie gesagt deine Sachen in den Code ein

Welche Sachen kann ich denn ändern um die Zeilen anzupassen?
Ich sehe nur unter Range("BVery Happy"))
Kann ich sonst noch etwas auf meine aktuelle Tabelle anpassen, damit es passt?
hddiesel
Anfänger Nein, Profi Nein, Lernfähig Ja.


Verfasst am:
28. Apr 2014, 22:29
Rufname: Karl
Wohnort: Deutschland

AW: Wenn in Zeile "X" gefunden wird dann Wert kopi - AW: Wenn in Zeile "X" gefunden wird dann Wert kopi

Nach oben
       Version: Office 2007

Hallo Jan,

Sorry, war nicht eingelogt, die Antwort war von mir.

Wenn ein vorhandener Wert, in der Spalte F nicht überschrieben werden soll, weil aus Versehen ein weiteres "X" in der Zeile eingetragen wurde dann so:

Wird in der Spalte B, C, oder D, ein Kleines oder Großes "X" eingetragen
und die Zelle in der Spalte F ist Leer,
wird der Wert der Spalte G der gleichen Zeile, in die Spalte F eingetragen und der Wert in der Spalte G gelöscht.

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Count > 1 Then Exit Sub
   Application.EnableEvents = False
   If Not Intersect(Target, Range("B:D")) Is Nothing Then
      If IsEmpty(Target) = False _
         And UCase(Target.Value) = "X" And Cells(Target.Row, 6).Value = "" _
         Then Cells(Target.Row, 6) = Cells(Target.Row, 7).Value _
         : Cells(Target.Row, 7) = ""
   End If
   Application.EnableEvents = True
End Sub

_________________
Gruß
Karl

BS: Windows 7, 64-Bit, Service Pack 1,
Mainboard: Gigabyte GA-X48-DS4 (rev.1.3), CPU: Intel Core 2 Q9400 2.33GHz
Speicher: DDR2, 8192 MBytes, Grafik: NVIDIA GeForce GTX 280, 1024 MBytes, Mouse: Logitech MX Revolution.

MS Office XP(2002)
Janosch244
Gast


Verfasst am:
28. Apr 2014, 22:37
Rufname:

AW: Wenn in Zeile "X" gefunden wird dann Wert kopi - AW: Wenn in Zeile "X" gefunden wird dann Wert kopi

Nach oben
       Version: Office 2007

hallo Karl,

danke für deine Hilfe.
Habs geschnallt und angepasst!

Gibt es auch eine Möglichkeit, das ganze wieder Rückgängig zu machen?
Sprich, X wird entfernt, und die 5 springt von "neu" auf "alte" Position???
hddiesel
Anfänger Nein, Profi Nein, Lernfähig Ja.


Verfasst am:
28. Apr 2014, 22:56
Rufname: Karl
Wohnort: Deutschland

AW: Wenn in Zeile "X" gefunden wird dann Wert kopi - AW: Wenn in Zeile "X" gefunden wird dann Wert kopi

Nach oben
       Version: Office 2007

Hallo Jan,

meinst du so?
Code:
'
' Wenn ein vorhandener Wert, in der Spalte F nicht überschrieben werden soll,
' weil aus Versehen ein weiteres "X" in der Zeile eingetragen wurde dann so:
'
' Wird in der Spalte B, C, oder D, ein Kleines oder Großes "X" eingetragen
' und die Zelle in der Spalte F ist Leer,
' wird der Wert der Spalte G der gleichen Zeile, in die Spalte F eingetragen und der Wert in der Spalte G gelöscht.
'
Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Count > 1 Then Exit Sub
   Application.EnableEvents = False
   If Not Intersect(Target, Range("B:D")) Is Nothing Then
      If IsEmpty(Target) = False _
         And UCase(Target.Value) = "X" And Cells(Target.Row, 6).Value = "" _
         Then Cells(Target.Row, 6) = Cells(Target.Row, 7).Value _
         : Cells(Target.Row, 7) = ""
   End If
   
   If Not Intersect(Target, Range("B:D")) Is Nothing Then
      If IsEmpty(Target) = True _
         And UCase(Target.Value) = "" And Cells(Target.Row, 7).Value = "" _
         Then Cells(Target.Row, 7) = Cells(Target.Row, 6).Value _
         : Cells(Target.Row, 6) = ""
   End If
   
   Application.EnableEvents = True
End Sub

_________________
Gruß
Karl

BS: Windows 7, 64-Bit, Service Pack 1,
Mainboard: Gigabyte GA-X48-DS4 (rev.1.3), CPU: Intel Core 2 Q9400 2.33GHz
Speicher: DDR2, 8192 MBytes, Grafik: NVIDIA GeForce GTX 280, 1024 MBytes, Mouse: Logitech MX Revolution.

MS Office XP(2002)
Janosch244
Gast


Verfasst am:
28. Apr 2014, 23:00
Rufname:

AW: Wenn in Zeile "X" gefunden wird dann Wert kopi - AW: Wenn in Zeile "X" gefunden wird dann Wert kopi

Nach oben
       Version: Office 2007

ABSOLUT PERFEKT!


Ich danke Dir nochmal vielmals!
hddiesel
Anfänger Nein, Profi Nein, Lernfähig Ja.


Verfasst am:
28. Apr 2014, 23:03
Rufname: Karl
Wohnort: Deutschland

AW: Wenn in Zeile "X" gefunden wird dann Wert kopi - AW: Wenn in Zeile "X" gefunden wird dann Wert kopi

Nach oben
       Version: Office 2007

Hallo Jan,

geht auch noch kürzer!
Code:
'
' Wenn ein vorhandener Wert, in der Spalte F nicht überschrieben werden soll,
' weil aus Versehen ein weiteres "X" in der Zeile eingetragen wurde dann so:
'
' Wird in der Spalte B, C, oder D, ein Kleines oder Großes "X" eingetragen
' und die Zelle in der Spalte F ist Leer,
' wird der Wert der Spalte G der gleichen Zeile, in die Spalte F eingetragen und der Wert in der Spalte G gelöscht.
'
Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Count > 1 Then Exit Sub
   Application.EnableEvents = False
   If Not Intersect(Target, Range("B:D")) Is Nothing Then
      If IsEmpty(Target) = False _
         And UCase(Target.Value) = "X" And Cells(Target.Row, 6).Value = "" _
         Then Cells(Target.Row, 6) = Cells(Target.Row, 7).Value _
         : Cells(Target.Row, 7) = ""
   End If
   
      If IsEmpty(Target) = True _
         And Target.Value = "" And Cells(Target.Row, 7).Value = "" _
         Then Cells(Target.Row, 7) = Cells(Target.Row, 6).Value _
         : Cells(Target.Row, 6) = ""
   
   Application.EnableEvents = True
End Sub

_________________
Gruß
Karl

BS: Windows 7, 64-Bit, Service Pack 1,
Mainboard: Gigabyte GA-X48-DS4 (rev.1.3), CPU: Intel Core 2 Q9400 2.33GHz
Speicher: DDR2, 8192 MBytes, Grafik: NVIDIA GeForce GTX 280, 1024 MBytes, Mouse: Logitech MX Revolution.

MS Office XP(2002)
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: Zahlen runden auf den nächsten halben Wert.... 2 Gene 1281 19. Nov 2004, 20:04
ae Zahlen runden auf den nächsten halben Wert....
Keine neuen Beiträge Excel Formeln: Wenn-Bedingung mit mehreren Spalten und Zeile 6 Lusie 2819 02. Nov 2004, 15:57
Lusie Wenn-Bedingung mit mehreren Spalten und Zeile
Keine neuen Beiträge Excel Formeln: gegeben 2 Spalten/ ges. wie oft Wert aus Spalte 1 mit Wert a 4 Stefan B. 1310 21. Okt 2004, 08:06
Stefan B. gegeben 2 Spalten/ ges. wie oft Wert aus Spalte 1 mit Wert a
Keine neuen Beiträge Excel Formeln: Wert mit aktuellstem Datum verwenden 3 coupi 2294 14. Okt 2004, 19:38
Coupi Wert mit aktuellstem Datum verwenden
Keine neuen Beiträge Excel Formeln: Wert in Feld anzeigen wenn Bedingung erfüllt ist. 1 stoppel66 3409 29. Sep 2004, 19:18
ichbins Wert in Feld anzeigen wenn Bedingung erfüllt ist.
Keine neuen Beiträge Excel Formeln: Formel kopieren 4 Manfred50 893 24. Sep 2004, 21:31
Manfred50 Formel kopieren
Keine neuen Beiträge Excel Formeln: Wert nach 2 Kriterien raussuchen 2 KARL 1902 24. Sep 2004, 12:11
KARL Wert nach 2 Kriterien raussuchen
Keine neuen Beiträge Excel Formeln: Wie kann ich einen Wert aus einem Vergleich übernehmen? 1 lolarenntwieder 1725 22. Sep 2004, 00:25
fl618 Wie kann ich einen Wert aus einem Vergleich übernehmen?
Keine neuen Beiträge Excel Formeln: Wert in einem Bereich suchen. 5 khummel 16979 16. Sep 2004, 19:54
khummel Wert in einem Bereich suchen.
Keine neuen Beiträge Excel Formeln: werte in neue tabelle mit neuen spalten kopieren 1 Timo 1723 03. Sep 2004, 07:37
ae werte in neue tabelle  mit neuen spalten kopieren
Keine neuen Beiträge Excel Formeln: Daten aus einer Spalte in eine Zeile bringen 8 Hobbitz 2695 26. Aug 2004, 19:49
Arnim Daten aus einer Spalte in eine Zeile bringen
Keine neuen Beiträge Excel Formeln: Zeile automatisch färben 26 Jony 4143 23. Aug 2004, 22:07
fl618 Zeile automatisch färben
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft-Excel Diagramme