Studium, Ausbildung und Beruf
 StudiumHome   FAQFAQ   RegelnRegeln   SuchenSuchen    RegistrierenRegistrieren   LoginLogin

Zelle in Excel generieren
Neues Thema eröffnen   Neue Antwort erstellen
Foren-Übersicht -> Informatik-Forum -> Zelle in Excel generieren
 
Autor Nachricht
Matthias20
Moderator
Benutzer-Profile anzeigen
Moderator


Anmeldungsdatum: 25.05.2005
Beiträge: 11789
Wohnort: Hamburg

BeitragVerfasst am: 04 Dez 2007 - 19:03:58    Titel: Zelle in Excel generieren

Hallo zusammen,
ich habe einen berechneten Wert x und soll nun in der Tab an die Stelle, um es allg. zu halten, Ex springen, was dann bei x := 12 -> E12 lauten wuerde.

Aktuell ist dieser Range noch hardcoded:
Range("D4:O24").Select

Ich fange also z.B. immer bei D an, starte aber nach der 2. Kalkulation nicht mehr bei 4, sonder 256, also muesste ich bei D256 beginnen zu markieren. Analog passt sich dann das Ende ebenfalls dem Wert an.

Habe den Ansatz erweitert:
Range("(Cells(nextVal,5)):O24").Select

Funktioniert aber nicht, da die Methode 'Range' des Objektes _Global' fehlt bzw. es damit Probleme gibt.

Hat irgendjemand ein paar Tipps fuer mich?

Danke & Gruss:


Matthias
isi1
Moderator
Benutzer-Profile anzeigen
Moderator


Anmeldungsdatum: 10.08.2006
Beiträge: 7386
Wohnort: München

BeitragVerfasst am: 05 Dez 2007 - 09:49:22    Titel:

Sind ja kryptische Dinge, die Du da machst, Mathias,
kannst Du mal das XLS reinstellen?
Matthias20
Moderator
Benutzer-Profile anzeigen
Moderator


Anmeldungsdatum: 25.05.2005
Beiträge: 11789
Wohnort: Hamburg

BeitragVerfasst am: 05 Dez 2007 - 17:52:46    Titel:

Hallo Isi,

Problem ist geloest :-)

Ohne SELECT etc. konnte man es wie folgt realisieren:

Zitat:

Dim wksQuelle As Worksheet
Dim wksZiel As Worksheet
Dim lngAbZeile As Long
Dim lngBisZeile As Long
Dim lngAbSpalte As Long
Dim lngBisSpalte As Long
Dim lngErsteZeileZiel As Long
Dim lngErsteSpalteZiel As Long

lngAbSpalte = 4 '=D
lngBisSpalte = 15 '=O
lngAbZeile = 4
lngBisZeile = 24 'Immer größer als lngAbZeile

lngErsteZeileZiel = 5 'Beispiel
lngErsteSpalteZiel = 2 'Beispiel

Set wksQuelle = Worksheets("tabelle1")
Set wksZiel = Worksheets("tabelle2")

'mit PasteSpecial:
wksQuelle.Range(wksQuelle.Cells(lngAbZeile, lngAbSpalte), wksQuelle.Cells(lngBisZeile, lngBisSpalte)).Copy
wksZiel.Cells(lngErsteZeileZiel, lngErsteSpalteZiel).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False


Gruss:


Matthias
Beiträge der letzten Zeit anzeigen:   
Foren-Übersicht -> Informatik-Forum -> Zelle in Excel generieren
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind GMT + 1 Stunde
Seite 1 von 1

 
Gehe zu:  
Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.

Chat :: Nachrichten:: Lexikon :: Bücher :: Impressum