Sub Gewichte_berechnen()
Dim Wert As Variant
With Worksheets("lianalyse").Activate
Wert = Range("F10:F100").Offset(0, 1).Value
If Wert = "Addition" Or Wert = "Deletion" Then
Range("F10:F100").Value = Worksheets("Cers Date Import").Range("B5").Value * Worksheets("Data"). _
Range("aq11").Value / 40 / 100 / Range("F10:F100").Offset(0, 5).Value
End If
End With
End Sub
Sub Gewichte_berechnen()
Dim Wert As Variant
With Worksheets("lianalyse").Activate
Wert = Range("F10:F100").Offset(0, 1).Value
If Wert = "Addition" Or Wert = "Deletion" Then
Range("F10:F100").Value = Worksheets("Cers Date Import").Range("B5").Value * Worksheets("Data"). _
_
Range("aq11").Value / 40 / 100 / Range("F10:F100").Offset(0, 5).Value
End If
End With
End Sub
Sub Gewichte_berechnen()
Dim Wert As Variant
With Worksheets("lianalyse")
Wert = .Range("F10:F100").Offset(0, 1).Value
If Wert = "Addition" Or Wert = "Deletion" Then
.Range("F10:F100").Value = Worksheets("Cers Date Import").Range("B5").Value * _
Worksheets("Data").Range("aq11").Value / 40 / 100 / .Range("F10:F100").Offset(0, 5).Value
End If
End With
End Sub
Sub Gewichte_berechnen()
Dim Wert As String, c As Range
For Each c In Worksheets("lianalyse").Range("F10:F100")
Wert = c.Offset(0, 1).Value
If Wert = "Addition" Or Wert = "Deletion" Then _
c.Value = Worksheets("Cers Date Import").Range("B5").Value * _
Worksheets("Data").Range("aq11").Value / 40 / 100 / c.Offset(0, 5).Value
Next c
End Sub
Sub Gewichte_berechnen()
Dim Wert As String, c As Range
For Each c In Worksheets("lianalyse").Range("F10:F100")
Wert = c.Offset(0, 1).Value
Select Case Wert
Case "Addition", "Deletion"
c.Value = Worksheets("Cers Date Import").Range("B5").Value * _
Worksheets("Data").Range("aq11").Value / 40 / 100 / c.Offset(0, 5).Value
Case ""
'Glaskugel: welche Werte aus Data2?
End Select
Next c
End Sub
ALT + F11, um den VBA-Editor zu öffnen.Einfügen > Modul, um ein neues Modul zu erstellen.Sub Gewichte_berechnen()
Dim Wert As String, c As Range
For Each c In Worksheets("lianalyse").Range("F10:F100")
Wert = c.Offset(0, 1).Value
If Wert = "Addition" Or Wert = "Deletion" Then
c.Value = Worksheets("Cers Date Import").Range("B5").Value * _
Worksheets("Data").Range("aq11").Value / 40 / 100 / c.Offset(0, 5).Value
End If
Next c
End SubALT + F8 drückst, das Makro auswählst und auf Ausführen klickst.Laufzeitfehler 13: Typen unverträglich
Dieser Fehler tritt auf, wenn du versuchst, unterschiedliche Datentypen zu vergleichen oder zuzuweisen. Stelle sicher, dass die Zellen, auf die du zugreifst, den korrekten Datentyp haben (z. B. Text oder Zahl).
Fehler in der Zellreferenz
Überprüfe, ob die Zellreferenzen korrekt sind. Achte darauf, dass du die richtigen Blätter und Zellen verwendest, wie "F10:F100" für den Bereich, den du bearbeiten möchtest.
Falls du kein Makro verwenden möchtest, kannst du dies auch mittels einer Formel lösen. In Zelle F10 könntest du die folgende Formel verwenden:
=WENN(ODER(G10="ADD";G10="DEL");F14/30;"")Diese Formel prüft, ob die Nachbarzelle G10 "ADD" oder "DEL" enthält und teilt F14 durch 30, falls dies zutrifft.
Zelle F10 ansprechen:
Wenn du in Zelle F10 bist und G10 "ADD" oder "DEL" enthält, wird der Wert aus F14 durch 30 geteilt und in F10 geschrieben.
Datenübernahme aus Data2:
Ergänze das Makro, sodass leere Zellen in "lianalyse" mit Werten aus "Data2" in Spalte Y (Y10:Y100) gefüllt werden:
Case ""
c.Value = Worksheets("Data2").Range("Y" & c.Row).Value1. Wie kann ich das Makro für andere Zellen anpassen?
Du kannst die Zellreferenzen in der Range-Anweisung ändern, um das Makro auf andere Bereiche anzuwenden.
2. Was mache ich, wenn ich keine VBA-Erfahrung habe?
Es ist empfehlenswert, Tutorials zu VBA zu besuchen, um ein besseres Verständnis für die Programmierung in Excel zu bekommen. Schau dir auch einfache Beispiele an, um zu lernen.
3. Wo finde ich die Excel-Version, die ich benutze?
Klicke auf Datei > Konto, um die Excel-Version anzuzeigen.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen