Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1484to1488
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

2 Zellen auswählen

2 Zellen auswählen
31.03.2016 19:59:54
kurt
Guten Abend,
hab eine kleine Frage.
Ich habe diese Zeile:
merke = ActiveCell.Value
ich möchte gern 2 Zellen auswählen also
Courser steht in A1 dann A1:B1
merke = ActiveCell.Value +1
geht nicht
gruß
kurt w

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: 2 Zellen auswählen
31.03.2016 20:02:36
Hajo_Zi
merke Range=ActiveCell + ActiveCell.offset(0,1)

Fehlermeldung
31.03.2016 20:08:13
kurt
Guten Abend Hajo,
kam leider Fehlermeldung, Fehler beim Kompilieren
Argument ist nicht optimal.
Selectiert ist Range
gruß
kurt w

AW: Fehlermeldung
31.03.2016 20:11:09
Hajo_Zi
Hallo Kurt,
es war Code vom ersten Versuch übrig geblieben.
Merke = ActiveCell + ActiveCell.Offset(0, 1)
Gruß Hajo

Jetzt Laufzeitfehler 13
31.03.2016 20:21:40
kurt
Hallo Hajo,
eingesetzt, leider Laufzeitfehler 13
Typen unverträglich.
gruß
kurt w

Anzeige
AW: Jetzt Laufzeitfehler 13
31.03.2016 20:25:57
Hajo_Zi
Hallo Kurt,
in meiner Datei geht es, Deine sehe ich nicht.
Gruß Hajo

Hier das Makro
31.03.2016 20:33:11
kurt
Hallo Hajo,
hier das Makro.
Public Sub Neue_Vorlage_speichern()
Dim merke
' merke = ActiveCell.Value
merke = ActiveCell + ActiveCell.Offset(0, 1)
ThisWorkbook.Sheets("Dateinamen").Select
ActiveSheet.Range("A5:C5").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
ActiveSheet.Range("B5") = merke
End Sub
gruß kurt w

AW: Hier das Makro
31.03.2016 20:55:32
Hajo_Zi
Hallo Kurt,
es ging nur um meinen Vorschlag und da gibt es keine neuen Erkenntnisse.
Ich bin dann raus, da Du Deine Datei nicht verlinken willst.
Gruß Hajo

Anzeige
Und ich hab die Lösung selbst erstellt --))
31.03.2016 21:15:43
kurt
Hallo Hajo,
ein wenig umständlich aber Läuft !!!
Public Sub Neue_Vorlage_speichern()
' MsgBox "noch nicht aktiv"
Dim def, tag As Variant
Dim merke1, merke2
merke1 = ActiveCell.Value
ActiveCell.Offset(0, 1).Select
merke2 = ActiveCell.Value
ThisWorkbook.Sheets("Dateinamen").Select
ActiveSheet.Range("A5:C5").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
ActiveSheet.Range("B5") = merke1
ActiveSheet.Range("C5") = merke2
End Sub
gruß kurt w

geht auch ohne Select ...
31.03.2016 23:01:49
Matthias
Hallo Kurt
Das geht auch ohne select
merke1 = ActiveCell.Value
merke2 = ActiveCell.Offset(, 1).Value
Gruß Matthias

Anzeige
und auch ohne Blattwechsel möglich
31.03.2016 23:38:13
Matthias
Hallo
Das sieht so mE besser strukturiert aus.
Option Explicit
Public Sub Neue_Vorlage_speichern()
'MsgBox "noch nicht aktiv"
Dim merke1, merke2
merke1 = ActiveCell.Value
merke2 = ActiveCell.Offset(, 1).Value
With Sheets("Dateinamen")
.Range("B5:C5").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
.Range("B5") = merke1
.Range("C5") = merke2
End With
End Sub
Nur als Vorschlag!
Gruß Matthias

AW: Und ich hab die Lösung selbst erstellt --))
01.04.2016 08:39:51
Daniel
Hi
wenn du dir die Inhalte mehrerer Zellen merken willst und die Zellen direkt neben- oder untereinander liegen und beim Einfügen die Zellen wieder genauso angeordnet sind wie beim kopieren, dann reicht eine Variable aus:

Public Sub Neue_Vorlage_speichern()
' MsgBox "noch nicht aktiv"
Dim def, tag As Variant
Dim merke
merke = ActiveCell.Resize(, 2).Value
With ThisWorkbook.Sheets("Dateinamen")
.Range("A5:C5").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
.Range("B5:C5").Value = merke
End With
End Sub
Gruß Daniel

Anzeige
Danke an Matthias und Daniel !!! --))
01.04.2016 19:55:05
kurt

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige