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
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
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
merke1 = ActiveCell.Value
merke2 = ActiveCell.Offset(, 1).Value
Gruß Matthias
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!
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