Thema Datum  Von Nutzer Rating
Antwort
Rot Probleme bei 3 Formeln
16.10.2020 19:56:52 Karl
NotSolved
16.10.2020 20:35:49 Gast43049
Solved
16.10.2020 21:01:07 Karl
NotSolved
17.10.2020 03:05:03 Gast85228
NotSolved
17.10.2020 03:19:31 Gast85228
NotSolved
17.10.2020 07:29:42 Mase
NotSolved
19.10.2020 15:46:35 Karl
Solved
16.10.2020 21:10:42 Mase
NotSolved

Ansicht des Beitrags:
Von:
Karl
Datum:
16.10.2020 19:56:52
Views:
60
Rating: Antwort:
  Ja
Thema:
Probleme bei 3 Formeln

Hallo,

ich habe jetzt alle Formeln erstellt, welche ich für meine Projektarbeit benötige.

Bei 3 Stück komme ich leider nicht zum Ziel und die Zeit läuft mir leider davon.

Ich wäre sehr dankbar, wenn wir jemand aus diesen Forum helfen könnte.

Formel 1:

Dim ggge As Long
Dim gggf As Long
With Worksheets("Sheet1")
  ggga = .Range("LA1").Column
  gggb = .Range("BOJ1").Column
  gggc = .Range("BQC1").Column
  gggd = .Range("DTL1").Column
  For ggge = ggga To gggb
  For gggf = gggc To gggd
    If .Cells("BPK2").Value = .Cells("HX2") And _
    .Cells(ggge, 3).Value = "0" And _
    .Cells(gggf, 3).Value = 1 And _
    .Cells(ggge, 1).Value >= .Cells(ggge, 36) And _
    .Cells(ggge, 1).Value <= .Cells(ggge, 37) Then
      .Cells(ggge, 5).Value = "1"
    Else
      .Cells(ggge, 5).Value = "0"
End If
Next
End With

Formel 2:

With Worksheets("Sheet1")
Dim gggq As Long
Dim gggn As Long
Dim gggo As Long
For gggq = 12 To 13
gggj = .Range("LA1").Column
gggk = .Range("BOJ1").Column
gggl = .Range("BQC1").Column
gggm = .Range("DTL1").Column
For gggn = gggj To gggk
For gggo = gggl To gggm
If .Cells(gggn, 3).Value = "1" And _
.Cells(gggn, 12).Value > "" Then
.Range(gggn, gggq).Copy .Range(gggo, 13)
End If
Next
End With

Formel 3:

Dim zzza As Long
Dim zzzf As Long
Dim zzzg As Long
zzzb = Worksheets("Sheet1").Range("DTY1").Column
zzzc = Worksheets("Sheet1").Range("FXH1").Column
zzzd = Worksheets("Sheet2").Range("F1").Column
zzze = Worksheets("Sheet2").Range("BCO").Column
For zzza = 4 To 3951
For zzzf = zzzb To zzzc
For zzzg = zzzd To zzze

If Worksheets("Sheet1").Cells(zzzf, zzza).Value = "100" Then
Worksheets("Sheet2").Cells(zzzg, zzza).Interior.ColorIndex = 19
End If
Next

Sollte Fragen zu einzelnen Formeln auftauchen stehe ich gerne für Nachfragen zur Verfügung.


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Probleme bei 3 Formeln
16.10.2020 19:56:52 Karl
NotSolved
16.10.2020 20:35:49 Gast43049
Solved
16.10.2020 21:01:07 Karl
NotSolved
17.10.2020 03:05:03 Gast85228
NotSolved
17.10.2020 03:19:31 Gast85228
NotSolved
17.10.2020 07:29:42 Mase
NotSolved
19.10.2020 15:46:35 Karl
Solved
16.10.2020 21:10:42 Mase
NotSolved