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
Anzeige