Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1484to1488
1484to1488
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

2 Zellen auswählen

Forumthread: 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

Anzeige

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

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

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

Anzeige
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

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

Anzeige
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

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

Anzeige
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)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige