Hallo.
Ich habe folgendes Problem:
Ich lass mit einem Makro bestimmte Zellen ausfüllen.
Jetzt möchte ich zb. wenn in A1 der Wert 1 steht, das mir das Makro die Zelle B2 in B3 copiert.
Aber wenn in A1 der Wert 2 steht, soll das Makro C2 in C3 copieren.
Wie mache ich das?
danke euch schon mal im vorraus
Sub Makro1()
inhalt = Range("A1").Value
If inhalt = 1 Then
Range("B2").Select
Selection.Copy
Range("B3").Select
ActiveSheet.Paste
End If
If inhalt = 2 Then
Range("C2").Select
Selection.Copy
Range("C3").Select
ActiveSheet.Paste
End If
End Sub
Der Code ist zwar richtig, aber fängt alle anderen Fälle ncith ab, zB es steht 3 drin (falls das gewünscht ist)
Probier folgendes:
Sub Makro1()
inhalt = cint(ActiveCell.Value)
Cells(ActiveCell.Row, ActiveCell.Column + 1 ).Select
Selection.Copy
Cells(ActiveCell.Row, ActiveCell.Column + inhalt ).Select
ActiveSheet.Paste
End Sub
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
definitionssache…
deins funktioniert auch nur bis zu einem gewissen Zahlenwert und steigt dann mit Fehlermeldung aus…
wenn bei meinem eine nicht zulässige Zahl eingegeben wird wirds halt einfach ignoriert…
ausserdem ist bei Dir das Select der Zelle A1 zwingend notwendig…
ich denke dass mein Makro genügend aussagekraft hat, wie es geht…
wenns anders sein soll dann soll es eben in die spezifikation mit aufgenommen werden 