Thema Datum  Von Nutzer Rating
Antwort
24.01.2008 10:24:44 Fusel
NotSolved
24.01.2008 11:06:21 Holger
NotSolved
24.01.2008 11:10:31 Fusel
NotSolved
24.01.2008 12:42:01 Holger
NotSolved
Rot Aw:Aw:Aw:Aw:EXCEL VBA
 24.01.2008 13:21:46 Fusel
NotSolved

Ansicht des Beitrags:
Von:
Fusel		 Datum:
24.01.2008 13:21:46		 Views:
1066		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Aw:Aw:Aw:EXCEL VBA
Danke Holger bin weiter gekommen



Holger schrieb am 24.01.2008 12:42:01:

Hallo Fusel,
ich gehe davon aus, dass das Tabellenblatt Sheet nicht aufgerufen werden soll, da ja nach SheetX kopiert wird. Hast du Zeile als Private- oder Public-Variable deklariert, sonst müsstest du die Variable auch an die Funktion übergeben (so wie ich es gemacht habe). Das gilt auch für k. Wenn du k nicht initialisierst, ist k=0 und das führt bei Cells(k,2) zu einem Fehler. Die alten Zeilen habe ich ansonsten als Kommentar gekennzeichnet. Hinweis: Warum verwendest du Function und nicht Sub? Es wird doch kein Wert zurückgegeben.

Public Function Zwischenablage(sheet As Worksheet, SheetX As Worksheet, Zeile)
k = 1
'sheet.Activate
'Rows(Zeile).Select
sheet.Rows(Zeile).Copy
'Selection.Copy
SheetX.Select
While SheetX.Cells(k, 2) <> "" 'SheetX ist nicht erforderlich, da SheetX aktiv
k = k + 1
Wend
Rows(k).Select
ActiveSheet.Paste
End Function

Viel Erfolg
Holger

Fusel schrieb am 24.01.2008 11:10:31:

Public Function Zwischenablage(sheet As Worksheet, SheetX As Worksheet)

sheet.Activate
Rows(Zeile).Select
Selection.Copy
SheetX.Select
While SheetX.Cells(k, 2) <> ""
k = k + 1
Wend

Rows(k).Select
ActiveSheet.Paste

End Function






Holger schrieb am 24.01.2008 11:06:21:

Hallo Fusel,
indem du Quell-Tabellen nicht aktivierst oder selektierst, sondern die zu kopierenden Bereiche über den Tabellennamen und Zellennummern ansprichst, z.B. Worksheets("Quelltabelle").Cells(3,5). Du kannst hierbei auch definierte Ranges verwenden.
Für genauere Hilfe musst du schon deinen Code ausschnittsweise senden.
Holger



Fusel schrieb am 24.01.2008 10:24:44:

Hallo Leute!

Ich habe ein problem, ich lese aus einzelnen Excel-Tabellen Daten raus Dabei werden die Tabellen zur Laufzeit eingeblended .
Frage wie kann ich das machen das man die tabellen nicht sieht sprich es im Hintergrund abläuft

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
24.01.2008 10:24:44 Fusel
NotSolved
24.01.2008 11:06:21 Holger
NotSolved
24.01.2008 11:10:31 Fusel
NotSolved
24.01.2008 12:42:01 Holger
NotSolved
Rot Aw:Aw:Aw:Aw:EXCEL VBA
 24.01.2008 13:21:46 Fusel
NotSolved