Wert an Variable übergeben



Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: Wert an Variable übergeben
von: MikeS
Geschrieben am: 10.07.2002 - 08:46:14

Hallo Leute,

im nachfolgendem Codeauszug habe ich 2Mappen geöffnet und
möchte einer Variablen eine komplette Zeile eines Sheets
übergeben, um diese Zeile in dem anderen Blatt einzufügen.

Eingefügt in meinem Zielblatt wird aber nur "Kopie".
Meine Variable "rZeile" ist als Range dimensioniert.

Wo liegt mein Fehler???


If ActiveCell.Value = "Kopie" Then
  rZeile = ActiveCell.EntireRow
  Workbooks("Zielmappe").Activate
  Sheets("Zieltabelle").Activate
  Cells(lqZeile, 1).Select
  lqZeile = lqZeile + 1
  ActiveCell.Value = rZeile

Vielen Dank
Ciao MikeS


nach oben   nach unten

Re: Wert an Variable übergeben
von: Hans W. Herber
Geschrieben am: 10.07.2002 - 09:16:03

Hallo Mike,

zu dem Code gebe es eine ganze Menge zu schreiben. Zum Beispiel, dass Objektvariablen mit "Set" bestückt werden. Oder dass Selektieren bei der VBA-Programmierung Teufelszeug ist. Oder dass Matrix-Variablen anders belegt werden, oder ...

Der Code, der das Gewollte umsetzt:


Sub SetGetMatrix()
   Workbooks("Zielmappe").Worksheets("Zieltabelle") _
      .Rows(lqzeile).Value = Rows(ActiveCell.Row).Value
End Sub

hans

nach oben   nach unten

Re: Wert an Variable übergeben
von: ajk
Geschrieben am: 10.07.2002 - 09:16:18

HAllo,
Dein Fehler ist die letzte Zeile Probier mal:

If ActiveCell.Value = "Kopie" Then
rZeile = ActiveCell.EntireRow.select
Selection.Copy
Workbooks("Zielmappe").Activate
Sheets("Zieltabelle").Activate
Cells(lqZeile, 1).Select
lqZeile = lqZeile + 1
ActiveCell.EntireRow.select
ActiveSheet.Paste

Gruß
AJK


nach oben   nach unten

Re: Wert an Variable übergeben
von: MikeS
Geschrieben am: 10.07.2002 - 09:24:43

Hallo Leute,

vielen Dank für Eure Antwort.

Habe den Code umgestellt, wie von AJK beschrieben.

Nun funktioniert es!

Beschäftige mich erst ca. ein 1/2 Jahr mit VBA und dann hängt
es eben hier und da ein bißchen.

Ciao und eine streßfreie Woche wünscht MikeS aus Köln


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Wert an Variable übergeben"