Live-Forum - Die aktuellen Beiträge
Datum
Titel
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
13.10.2025 15:10:17
Überlappende Zeiträume über mehrere Tabellen mit leeren Zell
13.10.2025 13:34:56
PQ Abfrage mit verschiedenen Werten ausführen + Protokoll
13.10.2025 12:24:02
Zählen in Abhängigkeit einer Jahreszahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1576to1580
1576to1580
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Werte in 2. Tabelle übertragen

Forumthread: Werte in 2. Tabelle übertragen

Werte in 2. Tabelle übertragen
05.09.2017 16:30:42
Küster
Hallo Gemeinde
Ich hab ein Problem. Und zwar möchte ich ein Archiv erstellen in dem verschiedene Anlagen aufgelistet sind und wann diese benutzt wurden und durch wen.
Um mein Problem anschaulicher zu darzustellen, hab ich mal eine Beispieldatei erstellt auf die ich mich jetzt beziehe.
In das Blatt "Plan" wird eingetragen wer die Anlage wann bedient hat. Die Eingabe
des Datums erfolgt durch Doppelklick, was ich mit einem Makro gelöst hab. Die Eingabe des Bedieners erfolgt über eine Dropdown-Liste.
Diese Daten sollen nun fortlaufend in das Blatt "Liste" übertragen werden. Das heißt wenn bei Anlage 1 ein neues Datum eingetragen wird , soll dies unter dem alten Datum stehen und daneben der jeweilige Benutzer.
Meine Beispieldatei :
https://www.herber.de/bbs/user/116013.xlsm
Ich hoffe ich konnte mein Problem sinnig darstellen und bedanke mich jetzt schon für euer Hilfe
Mfg
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Werte in 2. Tabelle übertragen
05.09.2017 18:56:38
Sepp
Hallo Henry,
probier mal.
' **********************************************************************
' Modul: Tabelle1  Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'setzt per Doppelklick das aktuelle Datum & den Benutzernamen
On Error GoTo Fehler

If Not Intersect(Target, Range("B:B")) Is Nothing Then
  If Target.Offset(0, -1) <> "" Then
    Cancel = True
    Application.EnableEvents = False
    Target = Date
    'target.Offset(, 3) = Environ("Username") '(Bei doppelklick wird benutzername mit eingetragen. entfernt 01.09.17)
    
    
  End If
End If

'*** Fehlerbehandlung
Fehler:
Application.EnableEvents = True
If Err.Number <> 0 Then MsgBox "Fehler: " & _
  Err.Number & vbLf & Err.Description: Err.Clear

End Sub



Private Sub Worksheet_Change(ByVal Target As Range)
Dim varRet As Variant, lngNext As Long, objList As Object

With Target
  If .Count = 1 Then
    If .Column = 2 Or .Column = 4 Then
      If Cells(.Row, 1) <> "" And IsDate(Cells(.Row, 2)) And Cells(.Row, 4) <> "" Then
        Set objList = Sheets("Liste")
        varRet = Application.Match(Cells(.Row, 1), objList.Rows(1), 0)
        If IsNumeric(varRet) Then
          lngNext = Application.Max(3, objList.Cells(Rows.Count, varRet).End(xlUp).Row + 1)
          objList.Cells(lngNext, varRet) = Cells(.Row, 2)
          objList.Cells(lngNext, varRet + 1) = Cells(.Row, 4)
        End If
      End If
    End If
  End If
End With

Set objList = Nothing
End Sub

Gruß Sepp

Anzeige
AW: Werte in 2. Tabelle übertragen
06.09.2017 19:33:45
Küster
Super. Danke für die schnelle Hilfe. Jetzt möchte ich das auch für eine 2. und 3. Halle anwenden.
https://www.herber.de/bbs/user/116053.xlsm
Ich hab mir das folgendermaßen vorgestellt. Kann ich hierzu den bestehenden Code kopieren und einfach die jeweiligen Spalten anpassen oder muss da ein gänzlich anderer Code geschrieben werden.
Mfg
Anzeige
AW: Werte in 2. Tabelle übertragen
06.09.2017 19:54:11
Sepp
Hallo Henry,
und was kommt dann noch?
Das wird sicher wieder ein Endlos-Thread, weil nach jedem Schritt noch eine Erweiterung folgt.
Überdenke also genau, was als nächstes folgt und stelle dann die Frage(n).
Gruß Sepp

Anzeige
AW: Werte in 2. Tabelle übertragen
06.09.2017 20:21:22
Küster
Nein, das soll es natürlich nicht werden.
Ich formuliere die Frage mal anders:
Inwieweit muss ich den Code verändern bzw. erweitern um ihn für die mehrere Spalten zu verwenden.
Die Funktion soll die gleiche bleiben,nur die Zellbezüge würden sich im Blatt "Plan" sowie im Blatt"Liste" ändern
Ich hab ihn einfach dupliziert & die jeweiligen Spalten angepasst. Dies funktioniert allerdings nicht.
wenn ich das noch lösen könnte, wäre das auch das Ende meiner Fragerei ;)
mfg
Anzeige
AW: Werte in 2. Tabelle übertragen
06.09.2017 21:04:38
Küster
Hallo Sepp
Merci. Genau so .
Vielen, vielen Dank für die Hilfe
Anzeige
AW: Werte in 2. Tabelle übertragen
06.09.2017 18:15:25
Küster
Danke für die schnelle Hilfe ;)
;

Forumthreads zu verwandten Themen

Adresse des letzten Wertes einer Tabelle?
Moni

Hallo,
ich habe ein Problem, dass ich zum Teil mithilfe des Forums hier schon lösen konnte. Nur ein kleines Stückchen fehlt mir noch.
Zur Situation:
Ich habe eine Tabelle mit einer Spalte (C5:C221) in der ich jeden Tage einen Wert eintrage, bis die Tabelle irgendwann mal voll ist. I...
13.08.2008 14:11:59
Thread-ID: 1001534
9 Beiträge
Anzeige
Werte in anderes Tabellenblatt übertragen
Bibo

Hallo liebe EXCEL-Freunde,
ich habe in der Online-Suche leider kein Makro gefunden, das ich mit meinen minimalen VBA-Kenntnissen hätte selbständig auf meine Problematik anpassen können und bitte Euch deshalb um Eure Hilfe.
In das Tabellenblatt "Kommission" der Beispielmappe, das als Har...
31.08.2008 17:54:00
Thread-ID: 1006231
4 Beiträge
Wert in Tabelle suchen und summieren.
cfrei75

Hallo ich habe ein Problem! Wer kann mir bitte helfen.
Beispiel:
A1=6 Uhr
B1=21 Uhr
In der Zeile 2 stehen die Uhrzeiten von 0 bis 24 Uhr (24 Werte) als Titel.
In der Zeile 3 stehen die Werte der einzelnen Uhrzeiten (24 Werte).
Ich bräuchte die Summe der Uhrzeitwerte zwis...
20.10.2008 18:14:00
Thread-ID: 1017780
5 Beiträge
Anzeige
Werte in Tabelle schreiben
uw

Hallo,
ich habe in einer Tabelle die Tagessummen, die in eine andere Tabelle übertragen werden sollen.
In dem Beispiel sind die Daten in dem Blatt "Ausgangstabelle".
Diese Tabelle wird jeden Tag aktualisiert.
In jedem neuen Monat steht wieder in Zelle "B2" der Monatserste.
P...
17.12.2008 16:58:50
Thread-ID: 1033661
6 Beiträge
Werte einfügen aus Array in Tabelle mehrere Rows
chris

Hallo VBA Profis,
eine frage würde mich sehr über Hilfe freuen.
Dafür bedenke ich mich im vorraus.
ich habe den Code unten und will die Daten aus dem Array meArea2
in ein Tabellenblatt einfügen ab der zeile 2 also A2
Aber irgendwie schaffe ich es nicht.
habe es schon mi...
15.01.2009 10:13:00
Thread-ID: 1039973
9 Beiträge
Anzeige
Werte aus allen Tabellen in ein Tabelle zusammenfü
Kurt

Hallo Zusammen,
ich möchte gern alle Werte aus den vorhandenen Tabellen in eine Tabelle eingelesen werden.
Es dürfen nur nicht aus der "Muster + Alle" Tabelle, geht das per Makro?
Aus folgenden Zellen sollen alle Werte addiert in die "Alle" Tabelle reingesetzt werden.
D17 + D17<...
16.01.2009 16:14:00
Thread-ID: 1040622
10 Beiträge
Werte in Tabelle eintragen
fred


Hallo zusammen
Ich habe eine Arbeitsmappe mit ca 50 Tabellenblättern. Im Sheet Namensliste Im Bereich C9 bis C59 sind Namen eingetragen. Jeder dieser Namen ist ein Name eines Sheets. Ich möchte jetzt gerne für meine Diagramme Werte aus diesen Sheets in Tabelle 1 eingetragen haben.
...
18.01.2009 22:23:00
Thread-ID: 1041281
3 Beiträge
Combobox in tabelle einfügen mit werten
chris

Hallo mal wieder,
bitte bei diesem Problem um Hilfe.
Mit dem unten stehendem Code will ich in Tabelle1 Zeile 1 Comboboxen erstellen lassen.
Das klappt auch.Nur wenn ich jetzt diese zeile mit laufen lassen
Call test
Dann kommt ein fehler.
Laufzeitfehler 9 . Index auserhal...
13.02.2009 10:35:00
Thread-ID: 1050388
7 Beiträge
listbox werte in tabelle suchen
kirsche

hallo leute,
und wieder komme ich nicht weiter und brauche eure hilfe.
ich befülle eine listbox mit den daten aus einer hilfstabelle. nun werden über multiselect werte ausgewählt. über commandbutton1 schreibe ich diese werte in einen 2. tabelle, welche übersicht heißt. das funktioniert...
16.02.2009 12:03:00
Thread-ID: 1051097
3 Beiträge
werte in tabelle suche
kirsche

hallo leute,
mal wieder stehe ich vor einem problem und hoffe auf eure hilfe.
ich möchte über eine userform daten nach bestimmten kriterien von einer tabelle in eine andere übertragen. das klappt mit meinem makro auch schon ganz gut, leider nur solange die reihenfolge des suchbegriffs b...
22.03.2009 20:51:26
Thread-ID: 1062708
3 Beiträge
Anzeige
Zahlenwerte automatisch in Tabelle anzeigen lassen
Bine

Hallo liebe Excel Helfer,
ich steh mal wieder vor einem Problem und habe im Archiv leider nix hilfreiches gefunden:
Ich habe folgendes Makro zur Zeichnung von Rechtecken:
Sub Makro1() start: On Error Resume Next Dim a, b, c, d As Integer Dim zelle As Range a = InputBox("Geben Si...
27.03.2009 11:55:53
Thread-ID: 1064556
6 Beiträge
Wert in mehren Tabellen suchen
Herbert

Guten Morgen!
Ich habe eine Excelmappe "A" mit mehreren Tabellen und eine Excelmappe "B" mit einer Tabelle. Excel soll nun den Wert der Spalte "A" der Excelmappe "B" in den Tabellen der Mappe "A" suchen und, wenn gefunden, den Wert der Spalte "D" in die Spalte "C" der Tabelle der Mappe "B"...
29.04.2009 11:34:01
Thread-ID: 1071841
6 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige