Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
15.10.2025 13:31:47
WENN Formel mit zwei Bedingungen über 4 Spalten...
15.10.2025 13:24:59
Werte aller 4 Zeilen eintragen
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
1264to1268
1264to1268
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Daten in anderes Blatt übernehmen VBA

Forumthread: Daten in anderes Blatt übernehmen VBA

Daten in anderes Blatt übernehmen VBA
Claudia
Hallo an alle zusammen,
ich habe in einer Datei, im Tabellenblatt PLANER dort in Spalte C ab Zeile 7 Kurzzeichen stehen. Die Kurzzeichen stehen für Mitarbeitername. In dieser Tabelle wird für den jeweiligen Mitarbeiter/in
- In Spalte E der Beginn einer Tätigkeit
- In Spalte G die Dauer der Tätigkeit
- In Spalte H das Ende einer Tätigkeit
eingetragen bzw. errechnet.
https://www.herber.de/bbs/user/80518.xlsx
Nun möchte ich gerne in einem neuen Tabellenblatt „MITARBEITER“ die Zeitbelastung, sich ergebend aus Spalte G, der am Projekt beteiligten Personen erfassen, am besten per VBA da sich aus dem Blatt PLANER ständig Änderungen ergeben können. Auch können neue Namen/Kurzzeichen verändert werden.
Wer kann mir bitte helfen.
Vielen Dank Gruß Claudia
Anzeige
AW: Daten in anderes Blatt übernehmen VBA
11.06.2012 14:23:31
Heiko
Hallo Claudia,
Lösungsvorschlag:

Function zeitbelastung(kürzel As String) As Single
Dim rngPlaner As Range
Dim wsPlaner As Worksheet
Dim summezeit As Single
Set wsPlaner = Worksheets("PLANER")
For Each rngPlaner In wsPlaner.UsedRange
If rngPlaner.Cells(rngPlaner.Row, 3).Value = kürzel Then _
summezeit = summezeit + CSng(rngPlaner.Cells(rngPlaner.Row, 7).Value)
Next rngPlaner
zeitbelastung = summezeit
End Function
Anwendung:
Im Blatt Mitarbeiter Zelle C4 als Formel eingeben: =zeitbelastung(A4). Bei den anderen Mitarbeitern entsprechend.
Setzt voraus, dass du die Kürzel und Klarnamen im Blatt Mitarbeiter definierst.
Grüße
Heiko
Anzeige
AW: Daten in anderes Blatt übernehmen VBA
11.06.2012 14:48:14
Claudia
Hallo Heiko,
das funktioniert schon sehr gut, vielen Dank dafür, aber kann man das ganze so erweitern, das ein Makro sich die Kürzel aus dem Blatt "PLANER" automatisch in das Blatt "MITARBEITER" holt, doppelte Kürzel löscht und die Funktion dann die entsprechende Zeitbelastung aktualisiert. Somit könnte man doch dann auch die Formel für C4 per VBA bis zum letzten Kürzel nach unten kopieren. Das habe ich wohl in meiner Frage unklar ausgedrückt.
Leider reichen meine geringen VBAKenntnissse dafür nicht aus. Ich habe den Thread deshalb noch einmal auf offen gestellt.
Danke Gruß Claudia
Anzeige
AW: Daten in anderes Blatt übernehmen VBA
11.06.2012 17:11:42
Claudia
Hallo Heiko,
vielen Dank, werds erst morgen in der Firma testen können.
Gruß Claudia
AW: Daten in anderes Blatt übernehmen VBA
11.06.2012 17:48:41
Claudia
Hallo Heiko,
eine Frage habe ich doch schon.
In meinem Beispiel wird im Tabellenblatt PLANER nur jede zweite Zeile beschrieben. Viele Kollegen schreiben aber in jeder Zeile bzw. manchmal bleibt eine oder zwei Zeilen frei und dann scheint das Makro nicht richtig zu funktionieren.
Kann man das anpassen?
Danke im Voraus Gruß Claudia
Anzeige
AW: Daten in anderes Blatt übernehmen VBA
12.06.2012 06:53:25
Heiko
Guten Morgen Claudia,
habe dein Problem nachvollziehen können. Anbei die korrigierte For ... Each- Schleife: 

With wsPLaner
For Each rngPlaner In .Range("C:C")
If Len(.Cells(zeile, 3)) > 0 Then
leerzeile = 0
If InStr(1, kürzel, .Cells(zeile, 3)) = 0 Then
kürzel = kürzel & .Cells(zeile, 3) & ","
i = i + 1
End If
Else
leerzeile = leerzeile + 1
If leerzeile = MAXLEERZEILE Then Exit For
End If
zeile = zeile + 1
Next rngPlaner
End With

Ich habe eine Konstante MAXLEERZEILE eingefügt, deren Wert du verändern kannst, wenn deine User dazu neigen sollten auch mal mehr als fünf Leerzeilen einzufügen. (Aus welchem Grund auch immer).
Grüße
Heiko
Anzeige
AW: Daten in anderes Blatt übernehmen VBA
12.06.2012 07:32:57
Claudia
Hallo guten Morgen Heiko,
und wie muss MAXLEERZEILE deklariert werden? Stehe echt auf dem Schlauch?
Kannst Du nocheinmal kurz helfen?
Danke Gruß Claudia
AW: Daten in anderes Blatt übernehmen VBA
12.06.2012 07:44:39
Heiko
Im Teil der Variablendeklaration: 

Dim wsPLaner As Worksheet
Dim wsMitarbeiter As Worksheet
Dim rngPlaner As Range
Dim kürzel As String
Dim arrKürzel() As String
Dim i, k As Integer
Dim zeile As Integer
Dim leerzeile As Byte
Const MAXLEERZEILE = 5
Grüße
Heiko
Anzeige
Vielen Dank Heiko o.T.
12.06.2012 08:08:41
Claudia
;

Forumthreads zu verwandten Themen

VBA Ausgabe in neue Datei
MarkusL

Hallo,
ich habe folgendes Problem:
In einer Datei befinden sich nachfolgende Datensätze
Jahr Monat Feld_1 Feld_2 Feld_3 Feld_4 Feld_5 usw.
es sollen nun per VBA nach Abfrage von Jahr und Monat ein neuer Datensatz in einer neuen Datei erzeugt werden, der allerdings nur noch die F...
08.08.2008 17:42:00
Thread-ID: 1000377
3 Beiträge
Felder mit Datum und Uhrzeit vergleichen?
Lauren

Hallo zusammen,
neues Thema neues Glück :)
Nachdem mir bei meinem letzten Projekt tatkräftig geholfen wurde und ich auch das Projekt erfolgreich beenden konnte hier eine neue Problematik an der ich hängengeblieben bin.
Es sind folgende Saplten vorhanden
Spalte A = Datumanfang in...
16.09.2008 16:24:00
Thread-ID: 1010159
6 Beiträge
Dateiformat nicht erkennabar (VBA)
Richard

hallo
hab da ein vba-skript, das beim unteren der beiden Zeilen eine Fehlermeldung bringt:
CreateObject("Scripting.FileSystemObject").CopyFile "C:\Program Files\" & Dateiname_neu, "C:\Program Files\Kopie.txt", True
Workbooks.OpenText FileName:="C:\Program Files\Kopie.txt" _
02.10.2008 19:52:02
Thread-ID: 1013959
2 Beiträge
VBA heutiges Datum finden und Inhalt der Zelle prü
NeptunesChild

Hallo Leutz,
ich möchte in einer Zeiterfassung auf einem Monatsblatt das heutige Datum finden, dann in einer anderen Spalte (5 weiter links) eine Uhrzeit eintragen. Zuvor soll aber die Kontrolle erfolgen, ob in der Zelle bereits etwas steht und ob dies kleiner ist, als die aktuelle Zeit. We...
06.11.2008 15:38:08
Thread-ID: 1022323
3 Beiträge
Aktuelles Datum und aktuelle Uhrzeit
Herbert

Hallo Experten,
ich möchte gern in Zelle A1 das aktuelle Datum und die aktuelle Uhrzeit ausgegeben habe. So soll es aussehen: "20.11.2008 11:40:04".
Bin als Laie schon ziemlich überfordert und für jede Hilfe dankbar.
Gruß Herbert
20.11.2008 11:38:00
Thread-ID: 1026354
2 Beiträge
Formatierung Daten in Prozent fortlaufend
Wolfgang

Guten Morgen,
ich möchte unter einer Tabellenspalte mit Daten von z.B. (Spalte A =5, Spalte B =17, Spalte C =32.... bis Spalte X = 790) eine Formatierung bzw. Formel erstellen die mir automatisch, unter jeder Spalte, die jeweiligen Prozente der oberen Zahlen anzeigt
- wobei unter Spalt...
21.11.2008 07:54:55
Thread-ID: 1026590
7 Beiträge
Datenquelle eines Diagramms mit VBA verändern
mgr

hallo, ihr excel-götter!
leider hab ich im archiv nichts entsprechendes gefunden und werfe mein anliegen daher hier ein.
ich habe eine datei, die daten statistisch aufbereitet, unter anderem in form eines torten-diagramms.
dieses tortendiagramm wird mit daten befüllt, die durch eine...
21.11.2008 11:45:45
Thread-ID: 1026676
4 Beiträge
Produktdaten aus einer Liste mit VBA verwenden
Niklas

Hello Leute!
Ich arbeite gerade an einem Programm, welches mit Excel VBA programmiert wurde!
Das Programm dient dem Berechnen einer Übertemperatur in Schaltschränken!
Jetzt ist es notwendig, dass man verschiedene Einsätze ( Die Dinge die im Schaltschrank drinnen sind) auswählen kann...
03.12.2008 14:37:00
Thread-ID: 1029841
2 Beiträge
Datum und Uhrzeit mit einem Tastendruck
P.

Hallo.
ich möchte eine Art Zeiterfassung einrichten. Hierbei soll mit einem Tastendruck Datum und Uhrzeit in einer Zelle erscheinen. Das für Start, Pausenanfang, Pauseneendeund Ende. Anschließend will ich die verbrauchte Zeit ausrechnen.
Kann mir jemand helfen? Im Archiv habe ich nicht...
06.12.2008 13:05:21
Thread-ID: 1030655
13 Beiträge
VBA Querdruck DinA5 auf DinA4 Hochformat
Peter

Hallo,
habe eine Userform die ich aufrufe, dort sind 2 CommandButtons auf die entweder auf DinA5 oder DinA4 gedruckt werden soll.
Habe nun den Makrorecorder laufen lassen.
Private Sub CommandButton1_Click() 'Sub Karte_Druck() ' Karte_Druck Makro Din A 4 Application.ScreenUpdating...
07.12.2008 11:40:36
Thread-ID: 1030830
3 Beiträge
VBA Bedingte Formatierung
Peter

Hallo,
möchte gern das Abhängig von A1 in der ein "w" oder ein "m" steht, das A2:Z22 alles entweder rosa (w)
oder hell bLau (m) ist.
Habt Ihr eine Idee?
Beim Druck soll nachher alles wieder schwarz weiß sein.
Gruß Peter
09.12.2008 22:32:36
Thread-ID: 1031538
20 Beiträge
Verketten von Datum und Uhrzeit
Datum

Hallo Zusammen,
ich möchte ein Datum und eine Uhrzeit die in 2 verschiedenen Zellen stehen verketten. Bei der Verkettung wird das Datums und Uhrzeitformat in Zahlen dargestellt. Wie kann man die Verkettung gestalten, dass die Formate erhalten bleiben?
Gruß Rafi
16.12.2008 14:09:00
Thread-ID: 1033272
5 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