Thema Datum  Von Nutzer Rating
Antwort
06.09.2008 00:10:48 Andreas
NotSolved
Blau Aw:vba code
 07.09.2008 17:55:44 Holger
NotSolved
07.09.2008 21:58:23 samn
NotSolved
09.09.2008 16:30:51 andreas
NotSolved

Ansicht des Beitrags:
Von:
Holger		 Datum:
07.09.2008 17:55:44		 Views:
923		 Rating:
     
Antwort:
  Ja
Thema:
Aw:vba code
Hallo Andreas,
z.B.
Application.DisplayAlerts = False
a = MsgBox("Wurde gewünschter Bereich markiert?", vbYesNo)
If a = vbNo Then Exit Sub
With Selection
rstart = .Row
rend = .Rows.Count + rstart - 1
cstart = .Column
cend = .Columns.Count + cstart - 1
End With
For i = cstart To cend
For j = rstart To rend
If Cells(j, i) = "S" Then
a = Cells(j, i + 1)
With Range(Cells(j, i), Cells(j, i + 1))
.HorizontalAlignment = xlCenter
.MergeCells = True
End With
Cells(j, i) = Cells(j, i) + a
End If
Next j
Next i
Application.DisplayAlerts = True

Gruß
Holger



Andreas schrieb am 06.09.2008 00:10:48:

hallo! ich hätte eine frage: ich möchte auf einem tabellenblatt in einem bestimmten bereich alle zellen die den Wert S enthalten mittels makro markieren und mit der nachfolgenden zelle rechts verbinden und dabei mittig formatieren. kann mir jemand mitteilen, wie der code dazu aussieht? danke für die hilfe mfg a

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • 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
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • 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

Thema Datum  Von Nutzer Rating
Antwort
06.09.2008 00:10:48 Andreas
NotSolved
Blau Aw:vba code
 07.09.2008 17:55:44 Holger
NotSolved
07.09.2008 21:58:23 samn
NotSolved
09.09.2008 16:30:51 andreas
NotSolved