Office: Von einer definierten Zelle --> x Spalten nach rechts

Djerun · 13. Juli 2008

Hallo!

Nach Ewigkeiten muss ich mal wieder was in VBA schreiben.
Und selbst nachdem ich die Suche eine Stunde lang benutzt habe, bin ich nicht auf einen grünen Zweig gekommen.

Ich habe eine bestimmte Zelle definiert und ausgewählt. Und von dieser möchte ich jetzt zb. 3 Spalten nach rechts rücken und selektieren.

Code:

'Eine bestimmte Zelle wird seltiert. Sagen wir B2040
LetzteZeile = Range("B65535").End(xlUp).Offset(1, 0).Select

'Danach werden an dieser Stelle Werte hineinkopiert.
'Dann kopiere ich von einer anderen Stelle wieder Werte und möchte sie von der definierten "LetztenZeile" (B2040) 3 Spalten weiter rechts setzen

Range(LetzteZeile & Columns + 3).Select
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Dann kommt die Fehlermeldung "Nicht genügend Speicher".
Wo liegt hier der Fehler?
Ich hoffe ich habe mich halbwegs klar ausgedrückt *tongue.gif*

Vielen Dank im voraus.

Gruß,
Djerun

:)

jeder mann · 15. Juli 2008

Hallo, Djerun,

versuch es doch mal mit der Cells-Eigenschaft:

Code:

Cells(LetzteZeile, Columns + 3).Select
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

wobei das Selektieren in 99% aller Fälle überflüssig ist, da sich die Aktionen auch ohne vorherige Aktivierung ausführen lassen.

Die Range-Eigenschaft erwartet die Angabe als Buchstabe und Zahl, z.B. "A" & LetzteZeile.

Djerun · 15. Juli 2008

Danke für die Antwort.
Habe es jetzt mit deiner Zeile probiert, doch leider kommt jetzt die Fehlermeldung das die Typen unverträglich sind.

Dabei habe ich doch
Code:

Dim LetzteZeile As Long
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

definiert.
Hmmm das sollte doch passen.

IngGi · 15. Juli 2008

Hallo Djerun,

hast du vielleicht den Punkt vor "Columns" vergessen (Verwendung in einem With...End With-Block)? Oder ist "Columns" eine Variable? Wenn ja, was für ein Variablentyp? "Columns" ist ein Excel-Schlüsselwort. Das würde ich nicht als Variablenname verwenden.

Gruß Ingolf

NoNet · 15. Juli 2008

Hallo Djerun,

hier ein Lösungsvorschlag OHNE Selektieren :
Code:

Sub KopiereInNeueZellen()
'In eine bestimmte Zelle - z.B. B2040 - wird ein Wert aus A1 kopiert
'Danach aus D1 ein weiterer Wert 3 Spalten rechts neben diese Zelle
With Range("B65535").End(xlUp)
[A1].Copy .Offset(1, 0)
[D1].Copy .Offset(1, 3)
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Djerun · 12. Januar 2021

von IngGi

Hallo Djerun,

hast du vielleicht den Punkt vor "Columns" vergessen (Verwendung in einem With...End With-Block)? Oder ist "Columns" eine Variable? Wenn ja, was für ein Variablentyp? "Columns" ist ein Excel-Schlüsselwort. Das würde ich nicht als Variablenname verwenden.

Gruß Ingolf
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Nein Columns habe ich nicht als Variable definiert.
Dachte eigentlich ich kann mit diesen "Schlüsselwort" einfach arbeiten.

Djerun · 12. Januar 2021

von NoNet

Hallo Djerun,

hier ein Lösungsvorschlag OHNE Selektieren :
Code:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Sub KopiereInNeueZellen()
'In eine bestimmte Zelle - z.B. B2040 - wird ein Wert aus A1 kopiert
'Danach aus D1 ein weiterer Wert 3 Spalten rechts neben diese Zelle
With Range("B65535").End(xlUp)
[A1].Copy .Offset(1, 0)
[D1].Copy .Offset(1, 3)
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Danke für den Vorschlag. Aber so wird das nicht funktionieren. Die zu kopierenden Werte kommen aus verschiedenen Datein.
Ausserdem möchte ich gerne eine Zelle als "Startpunkt" definieren von der ich dann die Spalten nach rechts auswählen kann. Denn hinterher werden diverse Dinge noch kopiert und hinten angefügt.

Hier mal meine ersten Zeilen aus den Makro (inkl. Abfrage welche Monatsdatei gewählt werden soll)
Code:

Sub PI_Import()

Dim cGJ As String
Dim cPathEing As String
Dim LetzteZeile As Long

cGJ = "0708"
cPathEing = "L:\XXXXX\PI_Zusammenführung"

ChDir "L:\XXXXXX\PI_Zusammenführung"
Workbooks.Open Filename:="L:\XXXXXX\PI_Zusammenführung.xls"

Dim FileAktuell As String, InFile As String
Dim BuJM As String
Dim Zeilenzahl As Integer
Dim fs As FileSearch

' Eingabemaske für das Monat (Formular)
Do While True
dlgDatum.Show
BuJM = dlgDatum.txtDatum
If IsEmpty(BuJM) Then
Stop ' Abbruch bei Buchungsmonatsangabe
End If
If Len(BuJM) = 6 And Left(BuJM, 3) = "200" Then
Exit Do
End If
MsgBox ("Periode falsch, neu eingeben")
Loop

Do While True
Set fs = Application.FileSearch
FileAktuell = InputBox("Quelldateiname eingeben (ohne Verzeichnis)", "MA_Liste_PI_Zusammenführung_kostenverursachendes Personal_", "MA_Liste_PI_Zusammenführung_kostenverursachendes Personal_" & Left(BuJM, 6) & ".xls")
If FileAktuell = "" Then
Stop 'Abbruch oder keine Angabe
End If
With fs
.LookIn = cPathEing
.Filename = FileAktuell
If .Execute() > 0 Then
If .FoundFiles.Count = 1 Then
InFile = .FoundFiles(1)
Exit Do
End If
End If
MsgBox ("Dateiname '" & FileAktuell & "' nicht gefunden oder nicht eindeutig")
End With
Loop

Workbooks.Open Filename:=InFile, ReadOnly:=True
ActiveWindow.FreezePanes = False

'Kopieren der Spalten aus der kostenverursachenden Datei
'Kopieren PersID und Name
Range("A2:B2").Select
Range(Selection, Selection.End(xlDown)).Select Selection.Copy
Windows("PI_Zusammenführung.xls").Activate

'Erste freie Zeile in der Gesamt-Datei eruieren und hineinkopieren
LetzteZeile = Range("B65535").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

'Kopieren der KST
Windows("MA_Liste_PI_Zusammenführung_kostenverursachendes Personal_200804.xls") _ .Activate
Range("E2").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Windows("PI_Zusammenführung.xls").Activate

Cells(LetzteZeile, Columns + 3).Select
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

IngGi · 15. Juli 2008

Hallo Djerun,

versuch's mal mit ActiveCell.Column + 3 an Stelle von Columns + 3.

Gruß Ingolf

Djerun · 15. Juli 2008

Hmmm ich glaube ich mache schon einen Grundsätzlichen Fehler.

Mein Ziel ist es ja mit folgender Zeile "LetzteZeile" als Variable zu definieren. Wäre in diesen Falls zb. die Zelle B2040.
Code:

LetzteZeile = Range("B65535").End(xlUp).Offset(1, 0).Select
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Und später könnte ich jederzeit mit dieser Befehlszeile wieder auf die Zelle B2040 springen.
Code:

Cells(LetzteZeile).Select
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Aber so funktioniert das nicht.
Was mache ich das bloss falsch?

Dank&Gruß,
Djerun

Backowe · 15. Juli 2008

Hi,

probiere es mal so:

Sub LetzeZeile()
Dim letzteZeile As Long
letzteZeile = Range("B65535").End(xlUp).Offset(1, 0).Row
Cells(letzteZeile, "B").Select
End Sub

Djerun · 12. Januar 2021

von Backowe

Hi,

probiere es mal so:

Sub LetzeZeile()
Dim letzteZeile As Long
letzteZeile = Range("B65535").End(xlUp).Offset(1, 0).Row
Cells(letzteZeile, "B").Select
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hey Klasse!
Genauso hat es funktioniert.

Danke an euch vielmals!

Gruß,
Djerun

Office: Von einer definierten Zelle --> x Spalten nach rechts

Von einer definierten Zelle --> x Spalten nach rechts

Von einer definierten Zelle --> x Spalten nach rechts

Von einer definierten Zelle --> x Spalten nach rechts

Von einer definierten Zelle --> x Spalten nach rechts

Von einer definierten Zelle --> x Spalten nach rechts - Similar Threads - definierten Zelle Spalten

kopierte Zellen definiert einfügen

Definierter Name: in Zelle verwendet oder nicht?

Zeilennummern einer Zelle mit definiertem Namen auslesen

Erste leere Zelle im definierten Bereich ermitteln

Zellen verbinden innerhalb einer definierten Range

Merge von Zellen im exakt definierten Bereich

Richtigen Kontostand ausgeben in einer definierten Zelle