Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
828to832
828to832
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Werte von anderen Tab.Blatt Kopieren

Forumthread: Werte von anderen Tab.Blatt Kopieren

Werte von anderen Tab.Blatt Kopieren
26.12.2006 11:08:41
anderen
Hallo Leute
Habe unteren Code,der mir die Werte vom Sheets " KW" einliest.
Nur muss ich "KW" erst in die Arbeitsmappe Kopieren.
Es würde einfacher gehen,wenn der Sheets zB. "KW53" offen ist und dann gleich die Werte einlesen.
Also ohne zuerst "KW53" in die Arbeitsmappe kopieren zu müssen.
Könnte mir Bitte dabei jemand helfen ?
Danke
Heinz

Private Sub CommandButton5_Click()
Dim wks As Worksheet
For Each wks In Worksheets
If wks.Name Like "KW*" Then
wks.Range("F7").Copy
Sheets("Wochenplan").Range("F65").PasteSpecial _
Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Exit For
End If
Next
End Sub

Anzeige

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Werte von anderen Tab.Blatt Kopieren
27.12.2006 12:00:44
anderen
hallo Heinz,
du brauchst ja die Mappe "nur" zu Beginn öffnen...

Private Sub CommandButton1_Click()
Dim wks As Worksheet, wb As Workbook
On Error GoTo errEnde
Application.ScreenUpdating = False
Workbooks.Open Filename:="C:\Eigene Dateien\Mappe1.xls", ReadOnly:=True
Set wb = Workbooks("Mappe1.xls")
For Each wks In wb.Worksheets
    If wks.Name Like "KW*" Then
        ThisWorkbook.Sheets("Wochenplan").Range("F65").Value = wks.Range("F7").Value
        Exit For
    End If
Next
errEnde:
wb.Close False
Application.ScreenUpdating = True
End Sub
     gruß Herbert
Anzeige
AW: Werte von anderen Tab.Blatt Kopieren
27.12.2006 12:08:54
anderen
Hallo Herbert
Habe mich wahrscheindlich nicht klar ausgedrückt.
Wir bekommen in der Firma einmal pro Woche ein Tab.Blatt in Excelformat per mail zugesandt.
Das den Namen zB. "KW 33" oder "KW 35A" usw.trägt.
Nun möchte ich von meiner Arbeitsmappe gleich die Werte einfügen lassen, OHNE zuerst das Blatt "KW 33" in meine Arbeitsmappe Kopieren zu müssen.
Ich hoffe es ist jetzt ein wenig Verständlicher.
Danke & Gruss Heinz
Anzeige
AW: Werte von anderen Tab.Blatt Kopieren
27.12.2006 12:35:33
anderen
hallo Heinz,
im Prinzip macht es genau das !
du mußt halt den Anhang irgendwo abspeichern...
du schreibst immer von "die Werte"...
kopierst aber nur eine Zelle !
gruß Herbert
AW: Werte von anderen Tab.Blatt Kopieren
27.12.2006 12:49:44
anderen
Hallo Herbert
Du hast recht mit :"du schreibst immer von "die Werte"...
kopierst aber nur eine Zelle !"
Es sind mehrere Zellen zu Kopieren,aber der Code lautet dann immer gleich,nur die Zellen sind anders.
Kann ja dann das Schema in den anderen Codes einbauen.
Nur möchte ich das Blat " KW" das ich als mail geschickt bekomme nirgends abspeichern.
Nur so.
Meine Arbeitsmappe öffnen
Tab.Blatt "KW" das ich als mail bekommen habe öffnen
CommandButton5 von Arbeitsmappe Klicken
Werte werden eingefügt
"KW" wieder schliessen
Arbeitsmappe speichern.
Gruss Heinz
Anzeige
AW: Werte von anderen Tab.Blatt Kopieren
27.12.2006 18:21:02
anderen
hat die Datei,die du bekommst immer den gleichen Namen ?
wenn ja, welchen ?
wenn du mehrere Zellen immer in die gleiche Zelle kopierst,
dann wird diese Zelle jedesmal überschrieben !
das mußt du einmal erklären !
gruß Herbert
AW: Werte von anderen Tab.Blatt Kopieren
28.12.2006 09:07:18
anderen
Hallo Herbert
Ja diese Daten werden einmal in der Woche aktualisiert.
Also gelöscht und neue Daten eingefügt.
Das Tab.Blatt bekommen wir über mail in unsere Abteilung.
Es trägt den Namen "KW 32" .."KW 33" usw.
Gruß Heinz
Anzeige
AW: Werte von anderen Tab.Blatt Kopieren
28.12.2006 10:31:07
anderen
Hallo Heinz,
was da als Mail-Anhang ankommt, ist kein Sheet, sondern eine Excelmappe.
Dieser Anhang muss als Datei in einem (ansonsten leeren) Verzeichnis gespeichert werden.
(Da du die Mappe eigentlich gar nicht speichern möchtest, wird sie nachher automatisch gelöscht.)
Probier mal: 
Option Explicit
Private Sub CommandButton1_Click()
Dim strD As String, wks As Worksheet, strB As String
Const strVerz As String = "C:\KWausMail"      ' anpassen
strD = strVerz & "\" & Dir(strVerz & "\*.xls")
If strD > "" Then
Workbooks.Open Filename:=strD, ReadOnly:=True
For Each wks In ActiveWorkbook.Worksheets
If wks.Name Like "KW*" Then
strB = wks.Name
ThisWorkbook.Sheets("Wochenplan").Range("F65") = wks.Range("F7").Value
Exit For
End If
Next wks
If strB > "" Then
ActiveWorkbook.Close False
Kill strD
MsgBox "Das Blatt '" & strB & "' in der Mappe" & vbLf & strD & vbLf & _
"wurde verarbeitet, die Mappe wurde gelöscht.", vbInformation
Else
MsgBox "In der Mappe" & vbLf & strD & vbLf & _
"gibt es kein Klatt mit dem Namen KW...", vbExclamation
End If
Else
MsgBox "Keine Mappe in" & vbLf & strVerz & vbLf & "gefunden!", vbExclamation
End If
End Sub
Rückmeldung wäre nett! - Erich aus Kamp-Lintfort wünscht euch einen guten Rutsch!
Anzeige
AW: Werte von anderen Tab.Blatt Kopieren
28.12.2006 10:44:22
anderen
Hallo Erich
Du bist ein GROßMEISTER in VBA !!!
Recht herzlichen DANK
Funkt. echt SUPER.
Auch Dir ein gutes Neues Jahr 2007
Gruss aus Oberösterreich ( leider ohne Schnee )
Heinz
Danke für Rückmeldung - freut mich! (oT)
28.12.2006 10:54:09
Erich
AW: Danke für Rückmeldung - freut mich! (oT)
28.12.2006 13:57:09
Herbert
hallo Erich,
das geht doch wesentlich einfacher ohne speichern...
aber er ist nicht in der Lage eine simple Frage zu beantworten !
gruß Herbert
Anzeige
AW: Danke für Rückmeldung - freut mich! (oT)
28.12.2006 14:00:15
Heinz
Hallo Herbert
BITTE was meinst Du mit
"aber er ist nicht in der Lage eine simple Frage zu beantworten !"
Gruss Heinz
AW: Lösung ohne Speichern?
28.12.2006 18:58:30
Erich
Hi Herbert,
sicher ist das auch ohne Speicherung machbar. Wäre eine solche Lösung wirklich wesentlich einfacher?
Würdest du deine Lösung mal posten?
Bei meinem Vorschlag sind Mailbearbeitung und Mappenupdate organisatorisch und zeitlich getrennt,
die gespeicherte Datei dient als Schnittstelle. Das kann durchaus vorteilhaft sein,
hat aber natürlich auch den Nachteil, dass man das Mappenupdate vergessen könnte.
Eine Bemerkung zur Forumstechnik: Deine Beiträge enden mit nichtproportionaler Schrift,
im Archiv setzt sich das bei den Folgebeiträgen fort. Fehlt da vielleicht ein pre-Ende?
Ich setze hier eins rein:
Ich lasse den Thread offen - wegen Heinz' Frage.
Rückmeldung wäre nett! - Erich aus Kamp-Lintfort wünscht allen einen guten Rutsch!
Anzeige

Forumthreads zu verwandten Themen

Zellinhalt aus anderer Tabelle übernehmen
Marc

Hallo zusammen,
habe ein Problem mit dem ich einfach nicht weiterkomme (wahrscheinlich für Euch kein Problem...!)
Ich möchte aus einer Tabelle Zellinhalte in eine andere Tabelle im gleichen Arbeitsblatt übernehmen, d.h. aus Tabelle 2 soll der Zellinhalt aus D61 in Tabelle 1 in H60 über...
21.08.2008 22:08:00
Thread-ID: 1003658
3 Beiträge
Kombinationsfelder mit Daten aus anderer Tabelle
Bernhard

Hallo liebe Freunde,
ich brauche wieder einmal Eure Hilfe beim Umstricken eines VBA Codes, den ich hier im Archiv gefunden habe.
Die Userform hat u.a. 2 Kombinationsfelder, die mit den Daten aus den Spalten B bzw. C gefüllt werden. Wenn ich die Auswahl in Kombi1 treffe, wird Kombi2 glei...
25.08.2008 15:48:18
Thread-ID: 1004492
8 Beiträge
Daten sortiert aus anderem Tabellenblatt auslesen
Robert

Hallo,
bräuchte eure Hilfe bitte.
Aus einem Tabellenblatt ("FEHLZEITEN") sollen Daten ausgelesen und in einem anderen Tabellenblatt ("EINSATZPLANUNG") ab Zeile 100 eingefügt und bei Änderungen in "FEHLZEITEN" aktualisiert werden.
Habe da mal eine Beispieldatei zur besseren Veransch...
28.08.2008 11:32:00
Thread-ID: 1005356
3 Beiträge
Zeile mit Werten aus anderer Tabelle vergleichen
onkelbobby

Hi,
ich versuche folgendes in meine Datei einzubauen.
Tabelle 2 enthält Adressdaten und eine Infospalte. In diese Infospalte kann der Wert "S" oder der Wert "A" eingetragen werden.
In Tabelle 1 sind auch diverse Adressdaten gepflegt. Alle Adressen in Tabelle 1 sind auch in Tabelle 2...
29.08.2008 10:37:00
Thread-ID: 1005722
3 Beiträge
Bestimmten wert aus anderer Tabelle ermittlen.
Torsten

stehe gerade etwas auf dem schlauch....grummel sehe bestimmt den formel vor zeilen nicht ;)
also mal meion problem mal kurz umrissen:
Tabelle A - sheet1
Spalte B : Nummern
Spalte G : Bezeichner
Tabelle B - sheet2
Spalte G : Nummern
Spalte H : Bezeichner
erklärung...
10.09.2008 17:31:48
Thread-ID: 1008877
2 Beiträge
Anzeige
Werte aus anderem Blatt für ComboBox auslesen
mtremer

Hallo Excel-Freunde,
ich glaub ich werde verrückt.
Meine ComboBox füllt sich nicht mehr. Ich versuche den Code so zu ändern, dass die Quelle für die ComboBox wo anders stehen kann. Im folgenden Code müssen die Werte in der Spalte A der Tabelle1 stehen.
Private Sub Worksheet_Change...
17.09.2008 13:17:34
Thread-ID: 1010349
11 Beiträge
Tabellenblatt von anderer Stelle auswählen
anderer

Hallo,
ich würde gerne in einer Datei eine Zusammenfassung darstellen, und gebe dazu einen Namen eines Tabellenblattes einer anderen Datei ein, aus der dann eine Zelle übernommen wird. Ziel ist es in der Zusammenfassung z.b. 2012 als Jahr (Name des Tabellenblattes) einzugeben und ich bekomm...
01.03.2009 17:58:31
Thread-ID: 1055267
5 Beiträge
Anzeige
Gültigkeit (Liste): Daten von anderem Blatt?
anderem

Moin,
ich wollte gerne per Makro Gültigkeiten auf einem Blatt eintragen. Und zwar sollen es Listenfelder werden. Nur derzeit ist das Problem, dass die Daten für die Gültigkeitslisten auf einem anderen Blatt liegen und ich sie nicht übertragen kann. Das läßt mein Excel (2000) nicht zu.
04.03.2009 21:16:21
Thread-ID: 1056583
2 Beiträge
Anzeige
Texte aus anderem Tabellenblatt kopieren
Stefan

Hallo zusammen,
in einer Tabelle habe ich mir im Tabellenblatt 'Umwandeln' für verschiedene Textmanipulationen Formeln eingerichtet. Die Texte, die verändert werden sollen (Artikelbezeichungen) bekomme ich in Form einer Exceltabelle und ich ziehe mir das Tabellenblatt 'Artikel' als neues Ta...
22.04.2009 23:35:00
Thread-ID: 1070529
3 Beiträge
Werte mit VB aus anderer Mappe auslesen
Jubro

Hallo zusammen,
ich sollte eine Lösung für folgendes Problemchen haben!
In einer "Mappe1/Tabelle1" habe ich einen Button der bei Click in "Mappe1/Tabelle1" in Spalte "B" die erste freie Zeile sucht und den Wert aus der Zelle links daneben in Zelle "H13" einfügt! dies funktionier ohne we...
01.05.2009 19:49:10
Thread-ID: 1072359
5 Beiträge
Anzeige
Werte aus anderer Mappe übernehmen
Werner

Hallo Forum,
einmal mehr benötige ich Eure Hilfe.
Ich will eine Tabelle erstellen, in der in den Feldern „E“ der Spalte „efficiency factor“ die Nummer eines entsprechenden Arbeitsgangs eingegeben wird.
Es soll dann automatisch in Feld „F“ der Zeile, in der die Arbeitsgangnummer ein...
20.05.2009 13:44:58
Thread-ID: 1076355
4 Beiträge
Formel komplett aus anderem Blatt übernehmen
martin

Hallo.
In verschiedenen Arbeitsbättern befinden sich exakt die selben Rechnungen, jeweils mit unterschiedlichen Werten.
In einem Master-Blatt möchte ich gerne die Zeilen und Spaltenbeschriftungen, sowie die zu verwenden formeln definieren.
Könnt Ihr mir Tipps geben, wo ich dazu was...
18.06.2009 14:56:18
Thread-ID: 1082618
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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