Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema RefEdit
BildScreenshot zu RefEdit RefEdit-Seite mit Beispielarbeitsmappe aufrufen

x setzen mit Makro im bestimmten Bereich

Betrifft: x setzen mit Makro im bestimmten Bereich von: Andre´
Geschrieben am: 09.10.2014 15:40:11

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

  

Betrifft: eine Beispielmappe ... von: Rudi Maintaire
Geschrieben am: 09.10.2014 21:33:41

...ist ja oftmals hilfreich aber doch nicht nur!
Z.B. habe ich gerade kein Excel (Tablet)

Gruß
Rudi


  

Betrifft: AW: eine Beispielmappe ... von: Andre´
Geschrieben am: 09.10.2014 21:45:00

Hallo Rudi,

hier das Problem:



MFG Andre


  

Betrifft: AW: eine Beispielmappe ... von: Andre´
Geschrieben am: 09.10.2014 21:45:28

Hallo Rudi,

hier das Problem:



MFG Andre


  

Betrifft: AW: x setzen mit Makro im bestimmten Bereich von: ChrisL
Geschrieben am: 10.10.2014 13:31:31

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


  

Betrifft: AW: x setzen mit Makro im bestimmten Bereich von: Andre´
Geschrieben am: 11.10.2014 10:44:01

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


 

Beiträge aus den Excel-Beispielen zum Thema "x setzen mit Makro im bestimmten Bereich"