Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Ordnen von Werten im neuen Tabellenblatt
#1
Einen schönen guten Abend an alle Exelfreunde,
Ich habe einen Wunsch, weiss aber nicht ob dieser überhaupt funktioniert.
Folgendes:im Tabellenblatt 1 habe ich in der Spalte "K" in unregelmäßigen Abständen Werte.
Um eine bessere Übersicht zu erhalten, kopiere ich Das Datum und die Werte ins Tabellenblatt 2.
Ist aufwendig aber funktioniert.
Jetzt meine Frage, gibt es eine Möglichkeit das dies automatisch erfolgt?
Gruß
Günther
Zum besseren Verständnis habe ich die Tabelle hochgeladen.


Angehängte Dateien
.xls   Ordnen von Werten im neuen Tabellenblatt.xls (Größe: 67,5 KB / Downloads: 4)
Antworten Top
#2
Hallo Günther,

mal ein Versuch

Code:
Private Sub Worksheet_Change(ByVal Target As Range)

   Dim lngLastRow As Long
  
   If Not Intersect(Target, Range("K:K")) Is Nothing Then
      With Tabelle2
         lngLastRow = .Cells(.Rows.Count, 2).End(xlUp).Row + 1
         .Cells(lngLastRow, 2).Value = Target
         .Cells(lngLastRow, 1).Value = CDate(Cells(Target.Row, 1))
      End With
   End If
End Sub

Der Code gehört hinter die Tabelle.
Gruß Stefan
Win 10 / Office 2016
Antworten Top
#3
Hallo Stefan, der Code, funktioniert nicht, leider
Gruß
Günther
Antworten Top
#4
Hallo Günther,

ich habe den Code vorher bei mir getestet. Da hat er funktioniert. Ich schicke dir mal die Datei zurück.


Angehängte Dateien
.xls   Ordnen von Werten im neuen Tabellenblatt.xls (Größe: 68,5 KB / Downloads: 4)
Gruß Stefan
Win 10 / Office 2016
[-] Folgende(r) 1 Nutzer sagt Danke an Steffl für diesen Beitrag:
  • Guenther52
Antworten Top
#5
Hallo Stefan, ich weis leider nicht warum es nicht funktionierte.
Nach einen erneuten Versuch klappt es wunderbar!
Danke für Deine Bemühungen und den nochmaligen Hinweis das es FUNKTIONIERT!
Danke für alles
Gruß
Günther
Antworten Top
#6
Hallo Stefan,
eine Frage stellt sich noch, wie mus ich im Gode ändern, das im Tabellenblatt 2 das Datum im Spalte "B" und der Wert in Spalte "C" eingetragen wird. Ich habe es probiert aber ohne Erfolg!
Gruß
Günther
Antworten Top
#7
Hallo Günther,

du hättest insgesamt drei Codezeilen ändern müssen

Code:
Private Sub Worksheet_Change(ByVal Target As Range)

   Dim lngLastRow As Long
  
   If Not Intersect(Target, Range("K:K")) Is Nothing Then
      With Tabelle2
         'diese Zeile geändert
         lngLastRow = .Cells(.Rows.Count, 3).End(xlUp).Row + 1
         'und die beiden folgenden
         .Cells(lngLastRow, 3).Value = Target
         .Cells(lngLastRow, 2).Value = CDate(Cells(Target.Row, 1))
      End With
   End If
End Sub
Gruß Stefan
Win 10 / Office 2016
[-] Folgende(r) 1 Nutzer sagt Danke an Steffl für diesen Beitrag:
  • Guenther52
Antworten Top
#8
Hallo Stefan, einen schönen guten Morgen und vielen Dank für die zweite Unterstützung. Auch dieser Code funktionierte sofort!
Dankeschön!
Gruß
Günther
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste