Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 13:18:36
Übersicht von Excel Konstanten
16.10.2025 11:48:44
Makro von Excel in Word aufrufen
16.10.2025 11:16:26
SUMMEWENN erweitern
16.10.2025 09:40:53
Mehrere Konferenzen ohne Personenüberschneidung terminieren
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
1468to1472
1468to1472
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Knifflige Sache - Nur für Profis!!

Forumthread: Knifflige Sache - Nur für Profis!!

Knifflige Sache - Nur für Profis!!
20.01.2016 15:22:38
Ulrich

Hallo an alle!
Ich benötige ein Reparatur-Makro, dass ein anders bestehendes
Makro korregieren kann.
Das Reparatur-Makro sollte die Zelladressen erkennen und um 1
raufsetzen zB: G284 auf G285 usw..
Ein zweites Reparatur-Makro sollte die Zelladressen um 1
herabsetzen zB: G284 auf G283 usw..
Das ist echt ein schwieriges Problem und nur etwas für Profis, sofern
es überhaupt möglich ist.
Also meine Bitte an alle Profis, könnt Ihr mir weiter helfen?
bestehendes Beispiel-Makro:
Sub MBB()
If Range("G284") = 0 Then
Exit Sub
End If
If Range("F284") > Range("M284") Then
Range("M284") = Range("F284")
End If
If Range("F284")  Range("O284") Then
Range("O284") = Range("G284")
End If
If Range("G284")

Mfg Ulrich

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Knifflige Sache - Nur für Profis!!
20.01.2016 15:28:37
Daniel
Hi
wenn man weiss, dass sich solche Werte ändern, sollte man sie gleich als Variable oder Konstante definieren.
wenn dann so eine Änderung ansteht, braucht man nur einmalig im Code diesen Wert ändern und dass sollte dann manuell funktionieren:
Sub MBB()
Const Zeile as Long = 284
If Cells(Zeile, "G") = 0 Then
Exit Sub
End If
If Cells(Zeile, "F") > Cells(Zeile, "M") Then
Cells(Zeile, "M") = Cells(Zeile, "F")
End If
und so weiter
End Sub

Anzeige
AW: Knifflige Sache - Nur für Profis!!
20.01.2016 15:37:07
Werner
Hallo Daniel,
dann könnte man ja die Variable noch als Public deklarieren. Mit zwei Subs "Hoch" "Runter" und Zeile = Zeile + 1 bzw. - 1 wäre der Wunsch für ein "Reperaturmakro" auch noch erfüllt.
Werner

RepAratur!!! owT
20.01.2016 15:42:11
Rudi

AW: Knifflige Sache - Nur für Profis!!
20.01.2016 15:32:43
Rudi
Hallo,
würde ich einfach so machen: 
Sub CallMBB()
Call MBB(284)
End Sub


Sub MBB(lngRow As Long)
If Range("G" & lngRow) = 0 Then
Exit Sub
End If
If Range("F" & lngRow) > Range("M" & lngRow) Then
Range("M" & lngRow) = Range("F" & lngRow)
End If
If Range("F" & lngRow)  Range("O" & lngRow) Then
Range("O" & lngRow) = Range("G" & lngRow)
End If
If Range("G" & lngRow)

oder die Zeile aus einer Zelle beziehen: 
Sub MBB()
Dim lngRow As Long
lngRow = Range("A1")
If Range("G" & lngRow) = 0 Then
Exit Sub
End If
If Range("F" & lngRow) > Range("M" & lngRow) Then
Range("M" & lngRow) = Range("F" & lngRow)
End If
If Range("F" & lngRow)  Range("O" & lngRow) Then
Range("O" & lngRow) = Range("G" & lngRow)
End If
If Range("G" & lngRow)

oder per Inputbox-Methode holen
Gruß
Rudi

Anzeige
AW: Knifflige Sache - Nur für Profis!!
20.01.2016 16:11:55
Ulrich
Hallo Daniel, Werner, Rudi
Es ist kaum zu glauben, aber es funktioniert.
Wie einfach doch das Leben sein kann, wenn man nur weiß wie.
Vielen Dank für eure Hilfe und schnelle Antwort.
Ich habe jetzt erst einmal eine Menge umzubauen.
Also bis die Tage!
Mfg Ulrich
;

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