|
Excel : Mehrere Zellen in neuer Datei&/Tabellenblatt ausgeben
Phildi am 27.07.2012 um 09:45 Uhr (0)
Hey Karin,danke für die Info ... hatt ein bisschen gedauert bis ich durch deinen Code durchgestiegen bin ;-) die Mühen eines Anfängers eben. Hab ihn aber auch mal ausprobiert und es kommen auch keine Fehlermeldungen mehr aber ansonsten passiert nichts. Beide Files geöffnet, Makros aktiviert, Code im Tabellenblatt mit den Ausgangsdaten hinterlegt, ...Was mach ich nur falsch
| | In das Form Excel wechseln |
|
Excel : Mehrere Zellen in neuer Datei&/Tabellenblatt ausgeben
Phildi am 26.07.2012 um 12:09 Uhr (0)
Danke euch beiden für die Tipps... Ich beschäftige mich erst seit ein paar Tagen mit Visual Basic und lerne jetzt zwar immer mehr ... aber es dauert auch seine Zeit Ich habe eure Hinweise mal eingearbeitet ... Habe jetzt aber nen Laufzeitfehler9...Allerdings ist doch mein Index i.o. !Hab hier nochmal den Code:Code:Public Sub Zeilen2()Dim i As IntegerDim cell As Rangei = 1For Each cell In Tabelle1.Range("H:H")If Not cell Is Nothing Then If cell.Value = "Hoch" Then cell.EntireRow.Copy Destination:=Workbo ...
| | In das Form Excel wechseln |
|
Excel : Mehrere Zellen in neuer Datei&/Tabellenblatt ausgeben
Phildi am 26.07.2012 um 16:03 Uhr (0)
Danke für die Hinweise Paul ... ich habe jetzt einfach nochmal von Vorne angefangen und habe festgestellt, dass die Laufzeitfehler(jetzt 438) dann auftauchen wenn ich bei als Ausgabeziel folgendes angebe: Code:cell.EntireRow.Copy Destination:=Workbooks("Themen_Prioritaet_HOCH.xlsm").Tabelle2.Rows(i + 4)Lasse ich als Ziel ein einfaches Tabellenblatt in der gleichen Datei funktioniert das Ding einwandfrei.Ich habe jetzt nochmal ne google-Recherche gemacht aber komme zu keiner Lösung. P.S. Die Dateitypen habe ...
| | In das Form Excel wechseln |
|
Excel : Mehrere Zellen in neuer Datei&/Tabellenblatt ausgeben
Phildi am 25.07.2012 um 14:23 Uhr (0)
Hallo an alle Experten,ich bin Student und versuche gerade für ein Projekt eine Datenbank zu erstellen. Dabei möchte ich eine Analyse programmieren. Ich möchte, dass Datensätze(jeder 9 Spalten lang) in eine neue Exceldatei kopiert werden. Dazu habe ich mal folgendes Makro erstellt:Public Sub Zeilen2()Dim i As IntegerDim cell As Rangei = 1For Each cell In Tabelle1.Range("H:H")If Not cell Is Nothing Then If cell.Value = "Hoch" Then cell.EntireRow.Copy Destination:=Tabelle2.Rows(i) i = i + 1 End IfEnd ...
| | In das Form Excel wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
