Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
26.04.2024 11:38:46
Acrobat PDF Formularfelder mit Excel ausfüllen
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1868to1872
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1868to1872
1868to1872
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Daten in neues Excel übertragen

Daten in neues Excel übertragen
07.02.2022 12:32:00
Jürgen
Hallo,
da mir beim letzten mal so perfekt geholfen wurde, wende ich mich wieder hilfesuchend an euch.
Ich habe eine Excel erstellt mit dem Tabellenblatt "Schulungshinweis" aus welcher verschiedene Zellen in ein neues Tabellenblatt "Tabelle5" übertragen werden. Es wird in "Tabelle5" nach der ersten freien Zelle gesucht, bestimmte Daten aus dem Schulungshinweis übertragen und dann alle Zellen und Objekte (Bilder) im Schulungshinweis gelöscht.
Das funktioniert auch soweit. Jetzt würde ich jedoch gerne das ganze anstatt in der selben Arbeitsmappe in einer neuen Arbeitsmappe abspeichern.
Ich habe es mittels
Workbooks.Open "\\xxx\xxx\DATA\FG-BDF-P\K1\002.SAS_PV\Qualität\Tabelle5.xlsx"
dann habe ich eingegeben
With Workbooks("Tabelle").Worksheets("Tabelle1")
geschafft ein neues Excel zu öffnen, jedoch komme ich dann nicht weiter, was ich eingeben muss, damit die Daten auch dorthin übertragen werden.
Es bleibt dann ab der Zeile
.Range("C" & lgLetzte) = Sheets("Schulungshinweis").Range("F6").Value
hängen
Ich habe auch die Excel angefügt.
Vielen Dank im Voraus
LG,
Jürgen
Option Explicit

Private Sub CommandButton1_Click()
Dim lgLetzte As Long
Dim shpBild As Shape
Select Case MsgBox("Die Daten werden übertragen und die Felder geleert! Wollen sie fortfahren?", vbYesNoCancel)
Case vbYes
With Sheets("Tabelle5")
lgLetzte = .Cells(Rows.Count, 2).End(xlUp).Row + 1
.Range("C" & lgLetzte) = Sheets("Schulungshinweis").Range("F6").Value
.Range("D" & lgLetzte) = Sheets("Schulungshinweis").Range("H6").Value
.Range("B" & lgLetzte) = Sheets("Schulungshinweis").Range("c6").Value
.Range("A" & lgLetzte) = Sheets("Schulungshinweis").Range("c2").Value
End With
Application.Dialogs(xlDialogPrint).Show
For Each shpBild In ActiveSheet.Shapes
If shpBild.Type = msoPicture Then
shpBild.Delete
End If
Next
Sheets("Schulungshinweis").Range("F6").ClearContents
Sheets("Schulungshinweis").Range("c6:d6").ClearContents
Sheets("Schulungshinweis").Range("c2:H5").ClearContents
Sheets("Schulungshinweis").Range("c7:H16").ClearContents
Sheets("Schulungshinweis").Range("E19:F19").ClearContents
Sheets("Schulungshinweis").Range("E20:F20").ClearContents
Sheets("Schulungshinweis").Range("E21:F21").ClearContents
Sheets("Schulungshinweis").Range("E22:F22").ClearContents
Sheets("Schulungshinweis").Range("E23:F23").ClearContents
Sheets("Schulungshinweis").Range("E24:F24").ClearContents
Sheets("Schulungshinweis").Range("E25:F25").ClearContents
Sheets("Schulungshinweis").Range("E26:F26").ClearContents
Sheets("Schulungshinweis").Range("E27:F27").ClearContents
Sheets("Schulungshinweis").Range("E28:F28").ClearContents
Sheets("Schulungshinweis").Range("E29:F29").ClearContents
Sheets("Schulungshinweis").Range("E30:F30").ClearContents
Sheets("Schulungshinweis").Range("E31:F31").ClearContents
Sheets("Schulungshinweis").Range("E32:F32").ClearContents
Sheets("Schulungshinweis").Range("E33:F33").ClearContents
Sheets("Schulungshinweis").Range("B18:d33").ClearContents
Case vbNo
End Select
End Sub
https://www.herber.de/bbs/user/150962.xlsm

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten in neues Excel übertragen
07.02.2022 14:47:32
Rudi
Hallo,

Private Sub CommandButton1_Click()
Dim lgLetzte As Long
Dim shpBild As Shape
Dim wksZIEL As Worksheet
Dim wksSH As Worksheet
Select Case MsgBox("Die Daten werden übertragen und die Felder geleert! Wollen sie fortfahren?", vbYesNoCancel)
Case vbYes
Set wksSH = Sheets("Schulungshinweis")
Set wksZIEL = Workbooks.Open("c:\test\test.xlsx").Sheets(1)
With wksZIEL
lgLetzte = .Cells(Rows.Count, 2).End(xlUp).Row + 1
.Range("C" & lgLetzte) = wksSH.Range("F6").Value
.Range("D" & lgLetzte) = wksSH.Range("H6").Value
.Range("B" & lgLetzte) = wksSH.Range("c6").Value
.Range("A" & lgLetzte) = wksSH.Range("c2").Value
End With
Application.Dialogs(xlDialogPrint).Show
For Each shpBild In ActiveSheet.Shapes
If shpBild.Type = msoPicture Then
shpBild.Delete
End If
Next
With wksSH
.Range("F6").ClearContents
.Range("c6:d6").ClearContents
.Range("c2:H5").ClearContents
.Range("c7:H16").ClearContents
.Range("E19:F33").ClearContents
.Range("B18:D33").ClearContents
End With
End Select
End Sub
Gruß
Rudi
Anzeige
AW: Daten in neues Excel übertragen
09.02.2022 10:59:17
Jürgen
Hallo,
jetzt muss ich doch noch einmal um Hilfe bitten.
Ich habe jetzt folgenden Code
Option Explicit

Private Sub CommandButton1_Click()
Dim lgLetzte As Long
Dim shpBild As Shape
Dim wksZIEL As Worksheet
Dim wksSH As Worksheet
Dim pfad As String
Dim datum As String
' Pflichtfelder wenn leer MsgBox
If Sheets("Schulungshinweis").Range("C2") = "" Then MsgBox ("Thema eingeben!"): Exit Sub
If Sheets("Schulungshinweis").Range("C6") = "" Then MsgBox ("Ersteller eingeben!"): Exit Sub
If Sheets("Schulungshinweis").Range("f6") = "" Then MsgBox ("Datum eingeben!"): Exit Sub
Select Case MsgBox("Die Daten werden übertragen und die Felder geleert! Wollen sie fortfahren?", vbYesNoCancel)
Case vbYes
Set wksSH = Sheets("Schulungshinweis")
Set wksZIEL = Workbooks.Open("\\XXX\XXX\XXX\XXX\Common\Qualitätsordner\Q-Hinweis\Verfolgung Q- und Schulungshinweis.xlsx").Sheets(1)
With wksZIEL
lgLetzte = .Cells(Rows.Count, 2).End(xlUp).Row + 1
.Range("C" & lgLetzte) = wksSH.Range("F6").Value
.Range("D" & lgLetzte) = wksSH.Range("H6").Value
.Range("B" & lgLetzte) = wksSH.Range("c6").Value
.Range("A" & lgLetzte) = wksSH.Range("c2").Value
End With
Workbooks("Verfolgung Q- und Schulungshinweis").Close SaveChanges:=True
Const DateiPfad = "\\XXXX\XXX\XXX\XXX\Common\Qualitätsordner\Q-Hinweis\Archiv Q- und Schulungshinweis\"
Dim DateiName As String
DateiName = DateiPfad & Range("c2") & "_" & Range("c6") & ".pdf"   ' Thema + Ersteller
Range("A1:H36").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
DateiName, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
Application.Dialogs(xlDialogPrint).Show
For Each shpBild In ActiveSheet.Shapes
If shpBild.Type = msoPicture Then
shpBild.Delete
End If
Next
With wksSH
.Range("c6:d6").ClearContents
.Range("c2:H5").ClearContents
.Range("c7:H16").ClearContents
.Range("E19:F33").ClearContents
.Range("B18:D33").ClearContents
End With
End Select
End Sub
Auf meinem Rechner funktioniert alles einwandfrei.
Wenn die Datei jedoch auf einem anderen Rechner geöffnet und der Code ausgeführt wird
kommt in der Zeile
Workbooks("Verfolgung Q- und Schulungshinweis").Close SaveChanges:=True
die Fehlermeldung: Laufzeitfehler 9 Index außerhalb des gültigen Bereichs
Weiß jemand woran das liegen kann. Das komische ist, dass es auf meinem Rechner funktioniert
Vielen Dank
LG,
Jürgen
Anzeige
AW: Daten in neues Excel übertragen
09.02.2022 11:59:38
Jürgen
Hallo,
hat sich erledigt!
Vielen Dank!
LG,
Jürgen

155 Forumthreads zu ähnlichen Themen

Excel Daten in HTML Formular übertragen
Johannes

Hallo,
ich bin über einen Thread in einem anderen Forum auf dieses Forum und zwei Threads gestoßen worden, bei denen sich besonders der User Tino als Super-Hilfe herauskristalisiert hat (und dafür ziemlich angeblafft wurde...), weshalb ich mir erhoffe hier bzgl. meines Problems Hilfe zu erh...
21.08.2008 13:48:00
Thread-ID: 1003473
7 Beiträge
Anzeige
Daten aus einer Tabelle aus Formular laden
Mandy

Hi,
kann man Daten aus einem Range (zB A1-H5) in eine Listbox laden, die auf einer Userform sitzt ?
In A1 bis H1 ist ein Datensatz , der nachher in der Listbox eine Zeile geben soll.
In A2 bis H2 der zweite Datensatz usw.
Geht das ?
Danke mal
Mandy
02.07.2009 15:55:01
Thread-ID: 1085987
4 Beiträge
Mappe öffnen Pfad in Zellen A1 und B1
lisa

Guten Tag
Ich möchte eine Mappe öffnen und ein spezielles Sheet ansprechen! Der Pfad soll aus den Zellen meiner aktuellen Datei, den Zellen A1 & B1 entnommen werden.
In A1 steht die KW der Mappe, und in B1 (Bsp.: Dienstag) die Sheetbezeichnung.
Dazu folgendes Macro:
ChDir "...
16.07.2009 13:11:51
Thread-ID: 1089033
5 Beiträge
Anzeige
Durchschnitte der 1. und letzten 10 Werte in Tab.
Julian

Hallo,
komme einfach nicht mehr weiter alleine:
Bräuchte den durchschnitt jeweils der ersten und letzten 10 werte aus einer Autoformatierten Tabelle,
sobald ich jedoch weitere werte in die Tabelle einfüge, wandelt sich die formel automatisch auf den durchschnitt der ganzen tabelle,...
14.10.2009 22:01:07
Thread-ID: 1109698
9 Beiträge
Formulardaten in Datenbank automatisch einfügen
kevin-mau@arcor.de

Hallo.
Vielleicht kann es sein das ich im falschem Forum bin, entschuldigt dies bitte.
Aber,...
Ich habe folgendes Problem und zwar brauche ich eine Exceltabelle die als Datenbank dient und ein Formular das Datensätze beihnaltet die nach dem Speichern des Formulars automatisch in di...
27.11.2009 03:19:39
Thread-ID: 1120414
2 Beiträge
Daten aus Tabelle in Formular anzeigen
Wolle

Hallo Forum,
ich möchte gerne den Bereich A3 / C6 über ein formular füllen. Aufgerufen wird das Formular über den Button "Formular".
Das Formular selber habe ich auch schon fertig (siehe angehängte Datei).
Jetzt zu meiner Frabe: In dem aufgerufenen Formular sollen die Daten die scho...
30.11.2009 12:08:33
Thread-ID: 1120970
5 Beiträge
Daten Übergabe in das Formular
thomas3

Guten Morgen,
in einem Programm habe ich bisher mit einer Inputbox gearbeitet.
Fuktioniert wie folgt : Excel übergibt in die Box Daten, die im Header und im Feld eingeschrieben werden. In das Schreibefeld soll dann die passende Antwort eingetragen werden.
Nun hat sich im Zuge der B...
22.12.2009 09:06:47
Thread-ID: 1125499
8 Beiträge
Addition: Zelle A1 und B1; Ergebnis in Zelle B1
reiner

Hallo Leute,
ich kann mir nicht vorstellen dass es möglich ist die Zahlenwerte der oben genannten Zellen zu addieren und gleichzeitig das Ergebnis in Zelle B1 anzuzeigen, wenn möglich ohne VBA.
Kann mich jemand vom Gegenteil überzeugen?
mfg
reiner
06.05.2010 11:28:38
Thread-ID: 1155768
5 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
6
6
3
4
1
8
1
4
7
4
7
7
4
3
18
2
9
2
1
4
4
4
3
11
6