Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
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
1384to1388
1384to1388
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

x setzen mit Makro im bestimmten Bereich

Forumthread: x setzen mit Makro im bestimmten Bereich

x setzen mit Makro im bestimmten Bereich
09.10.2014 15:40:11
Andre´
Hallo alle zusammen,
ich habe eine Bsp.: Datei mit meinem Problem angehängt
https://www.herber.de/bbs/user/93063.xls
Für jede Hilfestellung würde ich mich sehr freuen.
Vielen Dank im Voraus!
MFG Andre

Anzeige

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

Betreff
Datum
Anwender
Anzeige
eine Beispielmappe ...
09.10.2014 21:33:41
Rudi
...ist ja oftmals hilfreich aber doch nicht nur!
Z.B. habe ich gerade kein Excel (Tablet)
Gruß
Rudi

AW: eine Beispielmappe ...
09.10.2014 21:45:00
Andre´
Hallo Rudi,
hier das Problem:
Userbild
MFG Andre

Anzeige
AW: eine Beispielmappe ...
09.10.2014 21:45:28
Andre´
Hallo Rudi,
hier das Problem:
Userbild
MFG Andre

AW: x setzen mit Makro im bestimmten Bereich
10.10.2014 13:31:31
ChrisL
Hi Andre
Für meinen Geschmack ist die Ausgangslage ziemlich undurchsichtig, um nicht zu sagen unlogisch.
Trotzdem mal etwas Code für Dich:
Sub t()
If WorksheetFunction.CountIf(Columns(3), Range("AT1")) = 0 Then
MsgBox "Suchkriterium aus Zelle AT1 ist nicht vorhanden"
Else
Dim lZeile As Long
lZeile = Application.Match(Range("AT1"), Columns(3))
If Cells(lZeile, 46)  0 Then
Range(Cells(lZeile, 46)) = "x"
Cells(lZeile, 46) = 0
Else
Range(Cells(lZeile, 25), Cells(lZeile, 44)).ClearContents
Cells(lZeile, 46) = "AA1"
End If
End If
End Sub

cu
Chris

Anzeige
AW: x setzen mit Makro im bestimmten Bereich
11.10.2014 10:44:01
Andre´
Hallo Chris,
vielen Dank für die Anregung, ich habe die Spalte AT nach link verschoben und realisiere das ganze über folgenden Codeausschnitt:
Sub xSchreiben()
With Sheets("Test")
.Cells(ZE, Columns.Count).End(xlToLeft).Offset(0, 1) = "x" '
If .Cells(ZE, 26) = "0" Then
.Range(.Cells(ZE, 27), .Cells(ZE, 46)).ClearContents
End If
End With
End Sub

MFG Andre
Anzeige
;

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